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1 

2 -TITLE CZTRACO TR79F ~~ DRS COMPATIBLE MAG TAPE DIAGNOSTIC 

3 -SBTTL PROGRAM DOCUMENT 

: ~REM “ 

$ TOENTIFICATION 

8 

e PRODUCT CODE:  AC=9426C-MC 

i PRODUCT NAME: CZTRACO TR79F TAPE DIAG 

i PRODUCT DATE FEBRUARY 1982 

43 MAINTAINER: DIAGNOSTIC ENGINEERING 

17 

18 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TG _ CHANGE WITHOUT 
19 TICE D NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
20 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT. CORPORATION ASSUMES NO 
$) RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
25 NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
ra) SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
re AFFILIATED COMPANIES. 
$6 COPYRIGHT (C) 1975,1982 BY DIGITAL EQUIPMENT CORPORATION 
ru THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

31 DIGITAL PDP UNIBUS MASSBUS 

DEC DECUS DECTAPE 
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2.0 
3.0 
4.0 
5.0 
6.0 


CONTENTS 


INTRODUCTION 

HARDWARE REQUIREMENTS 
OPERATING INSTRUCTIONS 
DEVICE INFORMATION TABLES 
TEST DESCRIPTIONS 

ERROR INFORMATION 


SEQ 2 





CZTRAC.P11 





30-DEC-81 11:08 


PROGRAM DOCUMENT 


1.0 INTRODUCTION 


THIS IS AN XXDP+ DRS COMPATIBLE DIAGNOSTIC TEST PROGRAM FOR THE 
TRO9E MAGNETIC TAPE TRANSPORT AND CONTROL UNIT . IT 1S DESIGNED 
FOR USE ON A PDP=11/70 WITH XXDP+ V1.1. THE TESTS IN THIS PROGRAM 
ARE MODIFIED VERSIONS OF THE TESTS IN N THE DIAGNOSTIC PROGRAM CZTRAB. 
IN THIS PROGRAM TEST] IS A NULL HES WITH NO FUNCTION. 
TEST D 5 ARE BASED ON T $3 3,4 AND 5 IN CZTRAB. 
TESTS. THE TEST OF OPERATOR ONTERVENTION’ F FUNCTIONS, IS BASED ON 


2.0 HARDWARE REQUIREMENTS 


THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE TR79F MAG 
TAPE DIAGNOSTIC. 


PDP-11/70 


16K MEMORY 
CONSOLE TERMINAL 
TR79F MAGNETIC TAPE TRANSPORT AND CONTROL UNIT 


3.0 OPERATING INSTRUCTIONS 


THIS PROGRAM MAY BE LOADED UNDER XXDP+ FROM ANY XXDP+ MEDIA. 
ae ater ot 10 RUN WITH XXDP+ DRS (DIAGNOSTIC RUN TIME SERVICES), 


TO EXECUTE THIS DIAGNOSTIC STANDALONE UNDER XXDP+ V1.1 PROCEED 
AS FOLLOWS. 


A. LOAD AND START THE DI TIC USING THE RUN COMMAND. 
B. WAIT FOR THE RUN TIME SERVICES PROMPT DR> 

C. TYPE IN START<CR> 

D. ANSWER HARDWARE AND SOFTWARE AQF 

E. RESPOND TO REQUESTS TO PERFORM TR MANUAL OPERATIONS. 

F. END OF PASS AND ERROR REPORTS WILL PRINT ON THE SYSTEM CONSOLE. 
G. TO END PROGRAM EXECUTION TYPE IN CTRL/C. 
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1a 4.0 DEVICE INFORMATION TABLES 
101 SU 
102 COMMAND REGISTER BIT DEFINITIONS 
‘e STTLLLTATTTTTLT TTA A ATLL AAA AAAS 
105 GOBIT = BITO :GOBIT = 1 INITIATE TAPE OPERATION 
106 FNBOO = BIT1 :FBNO3-FBNOO VALUE SPECIFIES TAPE FUNCTION 
107 FNBO1 = sits ; 
198 FNBO = BIT : 
109 FNBO = BIT4 ; 
110 BUSY = BITS :TR79F OPERATION IN PROGRESS 
111 INTENB = BIT6 s INTENB = 1 TR79 INTERRUPT ENABLE ASSERTED 
112 CURDY = BIT7 :CURDY = 1 TR79F CONTROL UNIT READY 
113 SBIT8 = BIT8 ;SBIT8-9 VALUE SPECIFIES UNIT 
114 SBIT9 = BITS ; 
115 MTIRDY = BIT10 sMTRDY = 1 TR79F T T Y 
116 PWRCLR = BIT11 3 LR = 1 INITIATE POWER CLEAR OPERATION 
117 XBA16 = ang s EXTEND IBUS ADDRES T 
118 XBA17 = BIT : EXTENDED BUS ADDRESS BIT 17 
119 ILCMD = BIT14 ; GAL TR COMMAND ATTEMPTED ERROR INDICATOR 
1s ERRBIT = BIT15 :TR79F ERROR CONDITION DETECTED INDICATOR 
122 STILAIAAAAATTAAAA ATA AAA AAA AAA AAA AAA 4 
123 :TR79 STATUS REGISTER BIT DEFINITIONS 
1s ALLA 
126 
127 INHBT = BITO 3; INHBT = 1 TR79F OPERATION INHIBITED 
128 RWDS = BIT1 sRWOS = 1 REWIND IN S 
129 FPTS = alte sFPTS = 1 WRITE ENABLE RING NOT INSTALLED 
130 EOFF = BIT sEOFF = 1 TAPE MARK DETECTED ON READ OR WRITE 
131 IDBF = BIT4 :IDBF = 1 IDENTIFICATION BURST DETECTED ON READ OR WRITE 
132 LDPTS = BITS sLDPT AT LOAD 
133 = Bits > NXMF BUS ADDRESS REGISTER REFERENCES NON-EXISTENT MEM 
134 EOTS = BIT :EOTS TAPE REFLECTOR DETECTED 
135 TMOUT = oiTe ; TMOU TION NOT COMPLETED IN TIME ALLOWED 
136 RDCNT = BIT ;ROCN QUAL COUNT IN WORD COUNT REGISTER 
137 ONLNS = BIT10 :ONLN 
138 BGL = BIT11 3;BGL 
139 STEF = ai tte s STEF RACK 
140 MTEF = BIT1 :MTEF ONE TAPE TRACK 
141 WPEF = BIT14 WPEF TE 
ie RPEF = BIT15 : RPEF 
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SEQ 6 
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175 

176 

ioe 5.0 TEST DESCRIPTIONS 

179 TEST? THIS IS A_NULL TEST INCLUDED TO PRESERVE THE TEST NUMBERING 

Ly = USED IN CZTRAB. MANUAL INTERVENTION TESTS ARE INCLUDED IN TEST6 

ise TEST2 CHECKS THE INTERFACE LOGIC WITH MINIMUM TAPE MOTION 

Ho TEST2 INCLUDES: TEST NAME IN CZTRAB 

186 REWIND FROM LOAD POINT TESTI 

187 INSURE WRITE RING TESTC 

188 UNIBUS EXTENSION BIT TEST TESTD 

189 INTERRUPT BIT SET TEST TESTE 

190 INTERRUPT BIT CLEAR TEST TESTF 

191 ILLE TEST TESTJ 

192 WRITE FROM LOAD POIN TESTK 

193 WRITE E TESTM 

194 TEST TR R TESTG 

195 SPACE REVERSE AT LOAD POINT TESTAT 

196 NXM T TESTAB 

197 BUS ADDRESS BIT TEST TESTAU 

= WORD COUNT BIT TEST TESTBA 

200 

201 TESTS CHECKS TR79 TRANSPORTS RESPONSE TO COMMANDS 

202 CHECKS IDB AND EOF OPERATIONS 

a | CHECKS COUNT AND PARITY ERROR DETECTION 

oo TESTS INCLUDES: TEST NAME IN CZTRAB 

207 INSURE WRITE ENABLE RING TESTC 

208 IND THE TAPE TESTI 

209 TESTO 

210 I OCK TEST TESTH 

211 SPACE eee OVER ID BLOCK TESTAV 

212 READ ID BL TESTAW 

213 WRITE EOF MARK KS 

214 SPACE REVERSE OVER EOF MARKS RUNU 

215 READ RUNV 

216 TIME OUT TEST TESTW 

217 READ WITH COUNT LONG TESTAC 

218 READ WITH COUNT SHORT TESTAD 

219 SPACE REVERSE WITH COUNT SHORT TESTAE 

220 eats REVERSE WITH COUNT LONG TESTAF 

221 WRITE EVEN PARITY TESTAX 

222 SPACE REVERSE EVEN PARITY TESTAY 

$52 READ EVEN PARITY TESTAZ 
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TEST4 WRITES, READS AND TESTS DATA WRITTEN ON TAPE 
TEST4 WRITES A FILE OF DATA TO TAPE A_NUMBER OF a ari 


THE FILE CONTAINS 15 BLOCKS OF DATA. EACH TIME A BLOCK 
Is WRITTEN THE DATA IS READ BACK AND CHECKED. THE NUMBER 
OF TIMES 7h oo AND My gh ag A FILE IS ant ED IS 
Fon tule IN THE SOFTWARE P-TABLE. THE DEFAULT VALUE 
FOR THIS REPEAT COUNT IS 10. (DECIMAL). 
TESTS INCLUDES: TEST NAME IN CZTRAB 
INSURE WRITE RING TESTC 

IND AND WRITE ID BLOCK 


REW TESTO 
WRITE,SPACE REV, READ AND TEST DATA TESTXX 


TESTS READ DATA WRITTEN BY TEST4 


TESTS INCLUDES: TEST NAME IN CZTRAB 
REWIND THE TAPE TESTI 

READ hs ID BLOCK TESTAW 

READ THE TAPE TESTXY 


TEST6 CHECKS MANUAL INTERVENTION OPERATIONS 
TEST6 CORRESPONDS TO TEST GROUP 1 FROM CZTRAB 





TEST6 INCLUDES: TEST NAME IN CZTRAB 

! REMOVE WRITE RING TESTB 
4, Oe: TRY TO WRITE WITHOUT RING RUNAS 
INSERT WRIT NG TESTC 

0S TESTAJ 

TAKE UNIT OFF LINE TESTP 

RA TESTAK 
REWIND THE TAPE TESTI 

WRITE PAST EOT TESTAL 

SPACE REVERSE PAST EOT TESTAM 

READ PAST EOT TESTAN 

WRITE EOF PAST EOT TESTAO 

SPACE REVERSE OVER EOF PAST EOT TESTAP 

READ EOF T TESTAQ 

REWIND AND GO OFF LINE STQ 


SEQ 7 
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6.0 ERROR INFORMATION 


ERRORS ARE REPORTED BY THE PROGRAM AS THEY 0 
NOT INHIBITED. THIS PROGRAM CONSIDERS AN UNAN 
MORE OF THE ao CONTROL AND STATUS ra Ady 


ORTS CONFORM TO T IAGNOSTIC 
FORMAT. THE REPORTS SPECIFY THE ERROR TY 
SUBTEST IN WHICH THE ERR ROR OCCURED, TH 
REPORT SUBROUTINE, AND A DESCRIPTION O 
INVOCATION ENERATED AN ERROR CONDI 
EXPECTED TR79F CONTROL AND 
SHOWN IN BASIC ERROR REPORTS IF BAS 


THE FOLLOWING EXAMPLE IS A TYPICAL E 
oe RL PRODUCED BY THE DETECTION 0 


mar* 
m 
Uv 
~+— 
So] 
4 
= 
m 
P4 
Pad 
v 
wv 
+ 
L— 
S 





THIS CASE THE 


Coece SFT ERR 00020 ON UNIT 00 TST 003 SUB 001 PC: 027070 


REGISTER LOCATION XPECTED AOU 
COMMAND 164 2 10260 
STATUS 1640 1 102001 
WORD COUNT 1 


~SBTTL LISTING & ASSEMBLY CONTROL 


eee 





—— aan 
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SEQ 9 


CZTRAC.P11 30=DEC-81 11:08 LISTING & ASSEMBLY CONTROL 
308 
309 000000 HELP=0 : CONTROL LISTING OF HELP INFORMATION 
310 * HELP=0 NO LIST 
311 : HELP=1 LIST 
313 .SBTTL INITIALIZE SUPERVISOR 
315 002000 .=2000 
317 .MCALL SVC 
318 002000 Svc : INITIALIZE SUPERVISOR MACROS 
320 
321 002000. BGNMOD TR79 
322 
323 
324 000001 SLSTIN= 1 
325 000001 SLSTTAG= 1 
326 000000 SVCINS= 0 : LIST INSTRUCTIONS, SHIFTED RIGHT 
327 0 SVCTST= 0 : LIST TEST TAGS, SHIFTE T 
328 000000 SVCSUB= 0 * LIST SUBTEST TAGS, SHIFTED RIGHT 
329 000000 SVCGBL= 0 * LIST GLOBAL TAGS, SHIFTED RIGHT 
330 000000 SVCTAG= 0 : LIST OTHER TAGS, SHIFTED RIGHT 
332 : CHANGE THE VALUES OF THE SVC... SYMBOLS TO BE ZERO IF YOU WISH 
333 : TO ALIGN THE MACRO CALLS AND THEIR EXPANSIONS. CHANGE THE 
334 : SYMBOLS TO BE MINUS-ONE TO NOT LIST THE EXPANSIONS. YOU MAY 
339 : CHANGE THE SYMBOLS AT ANY POINT IN YOUR PROGRAM. 
337 
338 
339 
340 
341 


-SBTTL SELECT OPTIONAL SECTIONS 


EE 


CZTRAC.P11 


343 
4 


CaSSELEES 


WAWA 
WMV 


002000 


30-DEC-81 11:08 


SELECT OPTIONAL SECTIONS 


3* SELECTION OF OPTIONAL PROGRAM SECTIONS 
POINTER ERRTBL ,BGNSW,BGNSF T 


.SBTTL PROGRAM HEADER 


SEQ 10 











SEQ 11 
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322 = 
355 : THE PROGRAM HEADER MACRO CHARACTERIZES THIS DIAGNOSTIC. THE 
356 “HEADER MACRO'S ARGUMENTS ARE FILE NAME, RELEASE LEVEL, PATCH 
357 “DISPOSITION OF THE MOST RECENT PATCH, MAXIMUM TEST TIME IN SEC., 
358 “AND THE TYPE OF DIAGNOSTIC (O-SEQUENTIAL, 1-EXERCISER). THESE 
399 “ARGUMENTS ARE IN RESPECTIVE ORDER. 
361 
365 
364 002000 HEADER CZTRA,C,0,7200.,0 
365 002000 LSNAME: : ‘DIAGNOSTIC NAME 
366 002000 103 ASCII /C/ 
367 002001 132 ASCII /2/ 
2002 124 “ASCII /T/ 
002003 122 ASCII /R/ 
370 002004 101 “ASCII /A/ 
371 002005 000 -BYTE 0 
372 002006 000 YTE 0 
373 002007 000 -BYTE 0 
374 002010 LSREV:: sREVISION LEVEL 
375 002010 103 ASCII /C/ 
376 002011 LSDEPO:: :0 
377 002011 060 ASCII /0/ 
378 002012 LSUNIT:: :NUMBER OF UNITS 
379 002012 000000 .WORD 0 
380 002014 LSTIML:: sLONGEST TEST TIME 
381 002014 016040 .WORD 7200. 
382 002016 LSHPCP: : sPOINTER TO H.W. QUES. 
383 002016 034460 .WORD LSHARD 
384 002020 LSSPCP:: :POINTER TO S.W. QUES. 
385 002020 034624 .WORD LSSOFT 
386 002022 LSHPTP:: :PTR. TO DEF. H.W. PTABLE 
387 002022 002142 .WORD LSHW 
388 002024 LS$SPTP:: sPTR. TO S.W. PTABLE 
389 002024 002152 .WORD L$SW 
390 002026 LSLADP: : :DIAG. END ADDRESS 
391 002026 035402 .WORD LSLAST 
392 002030 LSSTA:: sRESERVED FOR APT STATS 
393 002030 000000 .WORD 0 
394 002032 L$CO:: 
395 002032 000000 .WORD 0 
396 002034 LSDTYP:: sDIAGNOSTIC TYPE 
397 002034 000000 .WORD 0 
398 002036 LSAPT:: sAPT EXPANSION 
399 002036 000000 .WORD 0 
400 002040 LSDTP:: :PTR. TO DISPATCH TABLE 
401 002040 002124 .WORD LS$DISPATCH 
402 002042 LSPRIO:: sDIAGNOSTIC RUN PRIORITY 
403 002042 000000 . WORD 
404 002044 LSENVI:: *FLAGS DESCRIBE HOW IT WAS SETUP 
405 002044 000000 WORD 
406 002046 LSEXP1:: s EXPANSION WORD 
407 002046 000000 . WORD 


408 002050 LSMREV: : ;SVC REV AND EDIT # 


ee ee 
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409 002050 003 -—BYTE CSREVISION 
410 002051 003 -—BYTE CSEDIT 
411 002052 LSEF:: sDIAG. EVENT FLAGS 
412 002052 000000 -WORD 0 
413 002054 000000 -WORD 0 
414 002056 LS$SPC:: 
415 002056 000000 ~WORD QO 
416 002060 LSDEVP:: : POINTER TO DEVICE TYPE LIST 
417 002060 012322 ~WORD LSDVTYP 
418 002062 LSREPP:: :PTR. TO REPORT CODE 
419 002062 000000 -WORD 0 
420 002064 LSEXP4:: 
421 002064 000000 ~WORD 0 
422 002066 LSEXPS:: 
423 002066 000000 eWORD OQ 
424 002070 LSAUT:: :PTR. TO ADD UNIT CODE 
425 2070 000000 -WORD 0 
426 002072 LSDUT:: :PTR. TO DROP UNIT CODE 
427 002072 000000 ~WORD 0 
428 002074 LSLUN:: sLUN FOR EXERCISERS TO FILL 
429 002074 000060 -WORD 0Q 
430 002076 LSDESP:: sPOINTER TO DIAG. DESCRIPTION 
431 002076 012330 -WORD LSDESC 
432 002100 LSLOAD: : sGENERATE SPECIAL AUTOLOAD EMT 
433 002100 104035 EMT ESLOAD 
434 002102 LSETP:: :POINTER TO ERRTBL 
435 002102 002154 -WORD LSERRTBL 
436 002104 LSICP:: 3PTR. TO INIT CODE 
437 002104 024034 -WORD LSINIT 
438 002106 LSCCP:: :PTR. TO CLEAN-UP CODE 
439 002106 024202 -WORD LSCLEAN 
440 002110 LSACP:: ;PTR. TO AUTO CODE 
441 002110 024200 -WORD LSAUTO 
442 002112 LSPRT:: ;PTR. TO PROTECT TABLE 
443 962112 024026 -WORD LSPROT 
444 002114 LSTEST:: : TEST NUMBER 
445 002114 000000 -WORD 0 
446 002116 LSDLY:: :DELAY COUNT 
447 002116 000000 -WORD 0 
448 002120 LSHIME:: :PTR. TO HIGH MEM 
ret 002120 000000 -WORD 0 
451 EVEN 
452 
453 


454 -SBTTL DISPATCH TABLE 
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455 
456 
457 
458 
459 
460 
461 
462 002122 
463 002122 
464 002124 
465 002124 
466 002126 
467 002130 
468 002132 
469 002134 
470 002136 
471 
472 
473 
474 
475 
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DISPATCH TABLE 


SU UUUUUUUUUUUUUUUUUUUUUUUUUUUUOULL 
/ THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 


IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
SPILLILTITATAATA LATTA TATA AAT 


DISPATCH 6. 
-WORD 6 
LS$DISPATCH:: 
«WORD T1 
-WORD Tf 
WORD Tf 
D 14 
«WORD 15 
WORD 16 


.-SBTTL DEFAULT HARDWARE P-TABLE 


SEQ 13 
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000003 


164000 
000170 
000240 


DEFAULT HARDWARE P-TABLE 


BU 
:/ THE sn T DWARE P 
y THE TEST=DEVICE a 
/ IS IDENTICAL TO THE 
SLLTLTTATATTLTT ATTA 


SWORD (10000-L8Hw/2 







/ 
T 
R 
/ 


LSHW:: : 
DFPTBL:: 
. WORD 164000 :TR79 CSR S nye S 
. WORD 179 *TR79 INTERRUPT VEC On . 
. WORD PRIO5 *TR79 INTERRUPT PRIORITY LEVEL = 5 
ENDHW 
L10000: 


-SBTTL SOFTWARE P-TABLE 





a ee a ee — ——— i 
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002152 


002154 
902154 
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SOFTWARE P-TABLE 


= ee ——= 


BLOITAI TELIA LE AEL AST RICE LE ETAL LA OLE! LLL CL! CLA ALLEL ELIE LESS SALES ATES 


; THE SOFTWARE P=TABLE CONTA 
ANGED BY THE OP 


INS PROGRAM PARAMETERS WHOSE VALUE 


CAN BE CH ERATOR. 
SAIITITITTTATTATATAAT AAA TATA AT 


BGNSW ot 
. WORD 1000 -L$Sw/2 
L$SW:: 
SFPTBL:: 
RPTCNT: .WORD 10. 
ENDSW 
L10001: 


-SBTTL GLOBAL EQUATES SECTION 


;DEFAULT VALUE FOR NUMBER OF FILES WRITTEN 
; IN TEST4 
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518 
519 IIIA LILI LLL LLL ILL LL LL IIIT L/L 
520 °/ THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES T 
521 :/ ARE USED IN MORE THAN ONE TEST. | 
522 SPILTITTTATAATTAAT TATA ATTA AAA IAAT 
32 002154 EQUALS 
258 : BIT DIFINITIONS 
528 100000 BIT15== 190000 
529 040000 BIT14== 4 
530 020000 BIT13== é 
531 010000 BITi2== 
532 000 BIT11== 4000 
533 002000 BIT10== 2000 
534 001000 BITO9== 1000 
535 00 BITO8== 400 
536 000200 B1T07== 2 
537 000100 BIT06== 100 
538 0 BITOS== 40 
539 000020 BIT04== 20 
540 000010 B1T03== 10 
541 000004 BlTO2== 4 
542 000002 BITO1== 2 
343 000001 B1T00== 1 
545 001000 BIT9== BITO9 
546 0004 BIT8== BITO 
547 000200 BIT7== BIT 
548 000100 BIT6== BIT 
54 000040 BITS5== BITO 
550 000020 BIlT4== BIT 
551 000010 B1lT3== B1T03 
“2 000004 BlT2== BITO 
53 000002 BITi== BITO 
554 000001 B1T0== BITOO 
556 : EVENT FLAG DEFINITIONS 
397 ; EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
559 000049 EF. START== 2. : START COMMAND WAS ISSUED 
560 000037 EF .RESTART== f ; 
561 000036 EF.CONTINUE== 30. : NUE COMMAND WAS ISSUED 
562 000035 EF .NEW== : * A NEW PASS HAS BEEN STARTED 
363 000034 EF .PWR== 28. * A POWER-FAIL/POWER-UP OCCURRE 
565 : 
366 * PRIORITY LEVEL DEFINITIONS 
568 000340 barores 0 
569 000 PRI O6== 00 
570 000240 PRIO5== 24 
571 000200 PRI04== 200 
572 000140 PRIO03== 140 
573 000100 PRIO2== 100 


| E 2 


Qi/ 
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574 000040 PRI01== 40 
te 0000¢0 PRI00== 0 
227 ‘OPERATOR FLAG BITS 
579 000004 EVL== 4 
580 000010 LOT== 10 
581 900020 ADR== ¢0 

000040 IDU== 4 
583 0001 1SR== 100 

UAM== 2 

585 00 BOE== 4 

001000 PNT== 1 0 
587 002000 PRI == c 

000 IXE== 

589 010000 IBE== 10 
5 020000 IER== 2 
591 040000 LOE== 40 
592 100000 HOE== 10 
593 
594 


595 2 OS OS SO OO OOS SS OS OSS © 6 OSS FF SOS SSSSSESSSSSSDOSSOSSSOSSO® 


“SBTTL GLOBAL EQUATES FROM CZTRA 


597 * eee2eeoeeeee@ SO SS SS SS @ © @ © © © © OS OS SSS FSS SESE SSSSSSTSSHSSSTHSSSTSSSTSEESTSSSEZTSF SG Beeceeoes 
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AXAASAAAXAA AO 
ad ced ond ed aed ond ed od 
WONAVSWH oO 


RRES 
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177776 
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SEQ 18 
GLOBAL EQUATES FROM CZTRA | 


REGISTER DEFINITIONS 


RO=20 ;GENERAL REGISTER 

R1=21 ;GENERAL REGISTER 

Rees ;GENERAL REGISTER 

R3=% ; GENERAL Recisy R 

R4=2%4 ;GENERAL REGISTER 

R5=25 GENERAL REGISTER 

sores :PROCESSOR STACK POINTER 
PC=% PROGRAM COUNTER 
LOCATION EQUIVALENCES 

PS=177776 ;PROCESSOR STATUS WORD 


DEFAULT TR79 REGISTER ADDRESSES 


TCR= 164 Ss 
TSR= 164 
Twc= 164 
TBA= Hy 
TVA= 170 
TSA= 172 





Se Sw 


a 


SEQ 19 
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;TR79 FUNCTION DEFINITIONS 


; TAPE TEST EQUALS 


















D 
ILcoO) =. =0 LLEGAL C D 
WRITE +402 37 WRITE FORWARD 
READ 24 0 READ FORWAR 
ILCO3 =406 21 ILLEGAL COMMAND 
Ke “1015 33 SPACE REV RECORD 
ILCO =101 ig ILLEGAL COMMAND 
ILCO6. = =1414 ; ILLEGAL COMMAND 
ERASE =16 0 ERASE WORD COUNT FORWARD 
REWIND =1020 37 REWIND TAPE 
ILC11 =¢§ 0 ILLEGAL COMMAND 
ILC12 46 #424 37 ILLEGAL COMMAND 
GOEOT  =1026 is FAST FORWARD TO EOT 
ILC14 =1030 ; ILLEGAL COMMAND 
WIDB =43 2] WRITE I.D. BLOCK 
WEOF =1034 ¢ WRITE END FILE 
OFLINE =14 F TAKE UNIT OFF UNIT 


-SBTTL BIT DEFINITIONS FOT TR79 REGISTERS 
:TRCR COMMAND REGISTER BIT DEFINITIONS 


owt 2N A) mt 2 A) mt At EN Ey 


INH8T 











H 2 


SEQ 20 
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683 00 TMOU = 400 
684 001000 RDCNT = 1 

685 2000 ONLNS =@ 

686 004000 BGL = 4 

687 010000 STEF = 1 

688 020000 MTEF = 2 

689 040000 = 4 

90 100000 RPEF = 100000 


o 
SS 
_ 


I 2 



























SEQ 21 
CZTRAC.P11 30-DEC-81 11:08 BIT DEFINITIONS FOT TR79 REGISTERS 

692 
693 _SBTTL MISCELLANEOUS EQUATES FOR ERROR CALLS 
695 
696 000000 ENUM = 0 s INITIALIZE ERROR NUMBER 
697 000000 T.ESF= 0 “SYSTEM FATAL ERROR TYPE 
698 000001 T.EDF= 1 “DEVICE FATAL ERROR TYPE 
699 000002 T.EHRD= : SUNRECOVERABLE ERROR TYPE 
700 000003 T.ESFT= “SOFT ERROR TYPE 
702 
203 .SBTTL GLOBAL DATA SECTION 
re 
707 SITTITATALAAAAA AA AAA AA AIA 
708 :/ THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
709 :/ IN MORE THAN ONE TEST. 
710 STITT TTATT LAAT TTT ATLL TTT 
711 002154 ERRTBL 
712 002154 LSERRTBL: : 
713 002154 000000 ERRTYP: : .WORD 0 
714 002156 000000 “WORD 
715 000000 ERRMSG “WORD 
216 002162 000000 ERRBLK “WORD 
718 002164 000000 ATRCR: WORD 0 sCOPY OF TR79 COMMAND REGISTER 
719 002166 000000 ATRSR: .WORD “COPY OF TR79 STATUS REGISTER 
720 002170 000000 ATRWC: .WORD 0 [COPY OF TR79 WORD COUNT REG 
721 002172 000000 ATRBA: .WORD 0 [COPY OF TR79 
722 002174 000000 ETRCR: .WORD 0 EXPEC 
723 002176 000000 SR: .WORD 0 T EXPEC 
72 000000 E -WORD 0 TEXPEC 
725 002202 000000 ETRBA: .WORD 0 EXPEC 

002204 000000 AINPUT: .WORD 0 > COPY 
727 002 000000 EINPUT: .WORD “EXPEC 
728 002210 000000 LINPUT: .WORD :LOCAT 

000000 USEA:  .WORD :TR 

730 002214 000000 USEB:  .WORD *TR79 WORD FOR FUNCTION TO EXECUTE 
731 002216 000000 USEC: .WORD 0 *TR79 BUS OR FUNCTION TO EXECUTE 
732 : IF N REPEAT LOOP UNTIL EOT 
734 :DELAY CONSTANTS TIPLI 
735 : THESE CONSTANTS ED /70 WITH CACHE ALL HITS 
736 > TIMING LOOPS (I REGISTER.BNE) = 0.9 MICROSECONDS/TICK 
738 002220 000000 DLX WORD DELAY MULTIPLIER 
739 002222 000036 DLXRW: .WORD 30. SREAD/WRITE DELAY MULTIPLIER(1.5 SECONDS) 

002224 000030 DLXPWR: .WORD 24 “POWER CLEAR DELAY MULTIPLIC::(900 MILLISECONDS 
741 002226 000310 DLXBEL: .WORD . 210 SECOND DELAY MULTIPLIER 
742 000620 DLXTOF: .WORD * ss SDELAY MULTIPLIER FOR PUTTING TAPE ON LINE 
743 002232 900062 DLXLNG: .WORD 50. “FORCE TIMEOUT DELAY MULTIPLIER 
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002234 
002236 
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GLOBAL 


LOGDEV: 
PSTACK: 
INTFLG: 


INPUT-OUTOUT BUFFERS 


.SBTTL 


DATA SECTION 


ee eee ne ee 


i 
™m 


eee CONTROL PARAMETERS 


TACK — 


$_ ET. CLEARED 
R79 INTERRUPT 





; IS RECEIVED. 


;PROGRAM VARIABLES 


;TR79 VECTOR AND REGISTER POINTERS 


104000 
164002 
164004 
164006 


170 
PRI05 


1 OBUF 





;ADDRESS OF TR79 COMMAND REGISTER 
ZADDRESS OF TR79 STATUS REGISTER 
ZADDRESS OF TR79 WORD COUNT REGISTER 
;ADDRESS OF TR79 BUS ADDRESS REGISTER 


ESS OF TR79_ INTERRUPT VECTOR 
INTERRUPT PRIORITY LEVEL 
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004062 000777 900400 000777 
004122 000002 000002 000002 
004162 000020 000020 000020 02 
004222 000200 000200 000200 2 


000004 


000777 000400 


000004 


004422 000400 000400 000400 40 


004362 000040 000040 00004 


004262 
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S sess ssss sees 


2000 


-BLKW 


BEX 
L GLOBAL TEXT SECTION 


I 


INPUT: 


000652 000525 00065 
006122 000652 000525 00065 
006162 000652 000525 00065 
006222 000652 000525 00065 
006262 000777 000777 000777 777,777,777,777,777,777,777 777,777,777 777 077 707 707 207 eee 
006322 002000 
oL 


006062 


ST 
TT 


776 


' 
} 
ee ee ee / 
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810 


012362 


051124 
012330 


051124 
043501 


047045 
012416 


30-DEC-81 11:08 


034467 


052125 


022462 


000 


020101 


GLOBAL TEXT SECTION 


TTT TTT TTT TTT TITTLE LILA LIAL LL LLL LLL Leelee 
:% THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 

1. MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
“ 


: TTT ITITIITITITiTTiTLITTTETTTETTTETT EEE TERET TEETER TEA Eee 


ERR ARERAEREAAAAEAAEEEEAAAEAAAAAEAEKRAREAEREREEEEAEREREREREEAREHEREEAKEEEEE 


® NAMES OF DEVICE TYPE SUPPORTED BY DIAGNOSTIC 


SRAAAAAARAEAERARARAARAAEEREEAAERAEAEEAAAAAAAAEEREEREREREEHERERREREAEREREES 


DEVTYP <TR79> 
LSDVTYP:: 
eASCIZ /TR79/ 
EVEN 


—REERAERARAARAAEAAAEEAARAREEEAAAEEAREATAAEAEAEERAEAREREEEEEEEEERAREEEERERAEEREEEENE 


:* TITLE OF PROGRAM 


< eee ee eREAARERRERAARE REA TE AREA ARAERAREREEEERE AERA ERR ER KERE RRR RERE Ee 
DESCRIPT <TR79 MAG TAPE DIAGNOSTIC> 


LSDESC:: 
-ASCIZ /TR79 MAG TAPE DIAGNOSTIC/ 


~EVEN 
-NLIST BEX tt ie 
— ~ASCIZ /ZN2ZA P-TABLE SAYS NO TR79/ 


-EVE 
LIST BEX 
.-SBTTL GLOBAL SUBROUTINES 


SEQ 26 


CZTRAC.P11  30=DEC-81 11:08 GLOBAL SUBROUTINES 
811 
812 III LILLY 
813 :/ L SUBROUTINES ARE CALLED BY MORE THAN TEST 
814 YA LILAILITIGETALIITATTTTAD ITAL APIA TAPIA LATTA 
a9 
a8 .SBTTL RWIND GLOBAL SUBROUTINE --PERFORM REWIND-~ 
a5 , 
822 012416 042777 000001 167620 RWIND: BIC #BITO,aTRSR : CLEAR 1R79 INHIBIT BIT 
823 012424 012777 000000 167614 MOV #0, aTRWC “SET DATA WORD COUNT 
824 012432 012777 000000 167610 MOV #0. aTRBA + SET DATA ADDRESS 
825 012440 012777 001020 167574 MOV #REWIND aTRCR “SET FUNCTION 
826 012446 052777 000001 167566 BIS ,aTRC ;SET GO BIT 
B27 012454 000240 NOP 
828 012456 004737 013402 JSR PC, TESTA “WAIT FOR OPERATION 
829 012462 00020 RTS PC 
830 
831 
i 
834 -SBTTL WTIDB GLOBAL SUBROUTINE =-WRITE ID BLOCK-- 
B39 ) 
838 012464 042777 000001 167552 wWTIDB: BIC WBITO,aTRSR sCLEAR INHIBIT BIT 
839 012472 012777 000000 167546 V #0, aTRWC *SET DATA WORD COUNT 
840 012500 012777 000000 167542 MOV #0. aTRBA “SET DATA ADDRESS 
841 012506 012777 000432 167526 MOV #WIDB,aTRCR ‘SET FUNCTION 
B42 012514 052777 000001 167520 BIS #B1TO,aTRCR *SET GO BIT IN FUNCTION 
843 012522 000240 NOP : 
844 012524 004737 013402 JSR PC, TESTA “WAIT FOR OPERATION 
845 012530 000207 RTS PC ; 
846 
847 
549 
eee "SBTTL OFFLN GLOBAL SUBROUTINE --PERFORM OFF LINE COMMAND-- 
i | 
854 012532 042777 000001 167504 OFFLN: BIC #B1T0,aTRSR :CLEAR TR79 INHIBIT BIT 
855 012540 012777 000000 167500 MOV #0, aTRWC “SET DATA WORD COUNT 
856 012546 012777 167674 MOV “SET DATA ADDRESS 
857 012554 012777 001436 167460 MOV OF LINE aTRCR *SET FUNCTION 
858 012562 052777 000001 167452 BIS TRC “SET GO BIT 
859 012570 000240 NOP : 
860 012572 004737 013402 JSR PC, TESTA “WAIT FOR OPERATION 
861 012576 000207 RTS PC 
862 
863 
864 





.SBTTL GEOT GLOBAL SUBROUTINE --PERFORM FAST FORWARD TO EOT-- 


CZTRAC.P11 
867 


30-DEC-81 11:08 


8 3 
GEOT GLOBAL SUBROUTINE --PERFORM FAST FORWARD TO EOT-- 


SEQ 27 


EE TT 


. 2s 










SEQ 28 

CZTRAC.P11  30=DEC-81 11:08 GEOT GLOBAL SUBROUTINE -=PERFORM FAST FORWARD TO EOT-- 

is 

870 012600 042777 000001 167436 GEOT: BIC 48110 aTRSR sCLEAR TR79 INHIBIT BIT 

871 012606 012777 000000 167432 MOV aTRWC “SET DATA WORD C 

872 012614 012777 000000 167426 MOV ; RBA “SET DATA ADDRESS 

R73 012622 012777 001026 167412 MOV ioe aTRCR “SET FUNCTION 

874 012630 052777 000001 167404 BIS WBITO,aTRCR “SET GO BIT 

875 012636 000240 NOP ; 

876 012640 000207 RTS PC 

877 

$35 

880 "SBTTL WRT GLOBAL SUBROUTINE --PERFORM WRITE FROM OUTPUT 

383 ) 

884 012642 042777 000001 167374 WRT: BIC #BITO,@TRSR :CLEAR TR79 INHIBIT BIT 

885 012650 013777 002214 167370 MOV USEB aTRWC ‘SET DATA WORD COUNT 

886 012656 012777 002262 167364 MOV #OUTPUT , a@TRBA “SET DATA ADDRESS 

887 012777 000402 167350 MOV MWRITE T rcR *SET FUNCTION 

888 012672 052777 000001 167342 BIS #BITO,aTRCR “SET GO BIT 

889 012700 000240 NOP ; 

890 012702 004737 013402 JSR PC, TESTA “WAIT FOR OPERATION 

891 012706 000207 RTS PC 

892 

$0 

895 *SBTTL WRTC GLOBAL SUBROUTINE --PERFORM WRITE FROM aUSEC-- 

598 : 

899 012710 042777 000001 167326 WRTC: #B1T0,@TRSR :CLEAR TR79 INHISIT BIT 

900 012716 013777 002214 167322 USEB, aTRWC “SET DATA WORD COUNT 

901 012724 013777 002216 167316 USEC a@TRBA [SET DATA 

902 012732 012777 000402 167302 V DORITE. aTRCR *SET FUNCTI 

903 012740 052777 000001 167274 #B1TO,aTRCR *SET GO BIT 

904 012746 000240 NOP ; 

905 012759 004737 013402 JSR PC, TESTA “WAIT FOR OPERATION 

906 012754 000207 RTS PC 

907 

508 

sti 

911 ~SBTTL RD GLOBAL SUBROUTINE --PERFORM READ FROM INPUT-- 





ee 


8 3 











SEQ 29 

CZTRAC.P11 _30=DEC-81 11:08 RD GLOBAL SUBROUTINE =-PERFORM READ FROM INPUT-- 

312 

S15 012756 042777 000001 167260 RD: BIC #BITO,a@TRSR :CLEAR TR79 INHIBIT BIT 

916 019766 013777 002214 167254 MOV USEB, aTRWC “SET DATA WORD COUNT 

917 012772 012777 006322 167250 MOV #INPUT, @TRBA “SET DATA ADDRESS 

918 013000 012777 000004 167236 MOV #READ,aTRCR “SET FUNCTION 

919 013006 052777 000001 167226 BIS #BITO.aTRCR :SET GO 6 

920 013014 000240 NOP 

921 013016 004737 013402 JSR PC, TESTA “WAIT FOR OPERATION 

922 013022 000207 RTS PC 

923 

35¢ 

3g8 ‘SBITL SPR GLOBAL SUBROUTINE --PERFORM SPACE REVERSE-- 

33 | , 

930 013024 042777 (00001 167212 SPR: BIC #B1TO aTRSR sCLEAR TR79 INHIBIT BIT 

931 013032 013777 002214 167206 MOV USEB, aTRW ‘SET DATA WORD COUNT 

$32 013040 012777 167202 MOV STRBAY “SET DATA ADDRESS 

933 013046 012777 001410 167166 MOV PSPACER aTRCR *SET FUNCTION 

934 013054 052777 000001 167160 BIS WBITO,aTRCR ;SET GO BIT 

935 000246 NOP 

936 004737 013402 JSR PC, TESTA “WAIT FOR OPERATION 

937 013070 000207 3 RTS PC 

938 

so 

a4 ~SBTTL WIEOF GLOBAL SUBROUTINE --WRITE EOF (TAPE MARK)-- 

si | 

945 013072 042777 000001 167144 WTEOF: BIC #B1T0,aTRSR :CLEAR TR79 INHIBIT BIT 

946 013100 012777 000000 167140 MOV #0, aTRWC *SET DATA WORD COUNT 

947 013106 012777 000000 167134 MOV a *SET DATA 

948 013114 012777 001034 167120 MOV WWEOF ,@TRCR “SET FUNCTI 

949 013122 052777 000C01 167112 BIS #BITO.aTRCR ;SET GO BIT 

950 013130 000240 NOP 

951 013132 004737 013402 JSR PC, TESTA “WAIT FOR OPERATION 

952 013136 000207 RTS PC 

Sez 

955 “SBTTL ERS GLOBAL SUBROUTINE --PERFORM ERASE-~ 


956 ® OOOO e888 S868 SSO OS SSO S SESS 2O8eee0 een eee ewe ew aewme ne wesw en we mew eww we ewe ee ee 


g 3 


SEQ 30 
CZTRAC.P11  30-DEC-81 11:08 ERS GLOBAL SUBROUTINE --PERFORM ERASE-- 
324 
959 013140 042777 000001 167076 ERS: BIC WBITO.@TRSR sCLEAR TR79 INHIBIT BIT 
960 013146 013777 002214 167072 MOV USEB, aTRWC “SET DATA WORD COUNT 
961 013154 012777 002262 167066 MOV wouTPUT ,@TRBA “SET DATA ADDRESS 
962 013162 012777 000016 167052 MOV RASE 8 “SET FUNCTION 
963 013170 052777 000001 167044 BIS weit seRen *SET GO BIT 
964 013176 000240 NOP ; 
965 013200 004737 013402 JSR PC, TESTA “WAIT FOR OPERATION 
366 013204 000207 RTS PC “RETURN 
308 
970 “SBTTL DOILC GLOBAL SUBROUTINE --PERFORM ILLEGAL OPERATION-- 
358 
974 013206 042777 000001 167030 DOILC: BIC WBITO,a@TRSR :CLEAR INHIBIT BIT 
975 013214 012777 000000 167024 MOV ‘0. a! TRWE *SET DATA WORD C 
976 013222 012777 000000 167020 MOV *SET DATA ADDRESS 
977 013230 052737 000001 002212 BIS *ait0 USEA “SET GO BIT IN FUNCTION 
978 013236 013777 002212 166776 MOV USEA, aTRCR * INITIATE OPERATION 
979 013244 000240 NOP 
013246 004737 013402 JSR PC, TESTA :WAIT FOR OPERATION 
013252 000207 RTS PC “RETURN 


~SBTTL CPYTRR COPY TR79 REGISTERS AND _CLEAR EXPECTED RESULTS 


073254 CPYTRR: 
013254 012702 002164 MOV #ATRCR,R2 sPOINT TO 1ST COPY LOCATION 
013260 R2,-(SP) “SAVE POINTER 


013262 MOV 
013266 005022 10$: CLR 





1667 
013314 004737 013442 JSR a € $ 
013320 005002 CLR R :CLEAR ERROR INDICATOR 
013322 000207 RTS PC RETURN 


~SBTTL CPWR SUBROUT INE TO CLEAR T TR79 INTERFACE 


SSSPELSS ERI ELE ESSLSSESESE 
g 
3 


el ee ee eed eed eed eed eed 





CZTRAC 


ooo 
nN O00 NOMVMEWN—O 


et ce ee ed ed eed eed ed 
=] 
™Nm 
et 


-P11 


013344 
013352 
013354 
013362 


052777 


013737 
000403 


013737 
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004000 
004000 


002230 


002222 
002220 


002220 


002220 


CPWR 


CPWR: 
10$: 


“ SBTTL 


, a 
SUBROUTINE TO CLEAR TR79 INTERFACE 


BIS WPWRCLR.@TRCR ;CLEAR TR79 COMMAND AND STATUS 
BIT WPWRCLR.@TRCR  :HAS CLEAR OPERATION COMPLETED? 
BNE 10$ ‘IF NO, WAIT UNTIL IT DOES 
RTS PC * RETURN 
WWAIT | SUBROUTINE TO WAIT A SPECIFIED TIME INTERVAL 
MOV DLXTOF ,DLX sSPECIFY DELAY MULTIPLIER FOR TAPE OFF LINE 
BR WWAIT “WAIT 
: MOV DLXRW, DLX : SPECIFY READ/WRITE DELAY MULTIPLIER 
CLR R1 ‘CLEAR DELAY CONSTANT REGISTER 
MOV DLX,R2 *COPY DELAY MULTIPLIER 
INC R1 : A TICK 
BNE 10$ “KEEP TICKING 
DEC Re :COUNT DOWN DELAY MULTIPLIER 
BNE 10$ “KEEP TICKING 
RTS PC ‘RETURN TO CALLER 





TESTA GLOBAL SUBROUTINE WAIT FOR TR79 OPERATION 
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100000 166624 
002000 166614 
000200 166604 


G 3 
TESTA GLOBAL SUBROUTINE WAIT FOR TR79 OPERATION 


3+ 

;TESTA IS ENTERED AFTER A TR79 OPERATION IS INITIATED 

; IF TIME ELAPSED > 40 MICROSEC(ROUGHLY) THEN RETURN 
IF TR79 ERROR BIT THEN RETURN 


oe 
t om 
S “ 
oco— 
ne 

it 

Ts 


8 
MTRDY = 1 AN THEN RETURN 
ELSE KEEP CHECKING 


Se Ge Be Se 
— 
wn 


- pa CLR R1 ;SET DELAY CONSTANT 


INC R1 sTICK 
BEQ 2$ z IF DELAY CONSTANT = 0 THEN EXIT 
BIT #B1T15,aTRCR :I1F TR79 ERROR BIT = 1 
BNE : THEN EXIT 
BIT #B1T10,aTRCR :IF MTRDY BIT = O 
BEQ : THEN KEEP CHECKING 
BIT #B1T7,aTRCR :1F CURDY BIT = 0 
3 BEQ 1$ 3 THEN KEEP CHECKING 
RTS PC ;RETURN 





“SBTTL CHKBRK SUBROUTINE CHECKS FOR OPERATOR INTERRUPT 


CHKBRK 





" BREAK :CHECK FOR OPERATOR INTERRUPT 
woe 





"SBTTL TESTC GLOBAL SUBROUTINE ASK OPERATOR 10 INSTALL WRITE ENABLE RING 





TESTC: sASK OPERATOR TO INSTALL RING 
000004 166570 BIT 172, aTRSR TF RING IS PRESENT 
10$: PRINTF #EMTTXT.#FMTRGI *ASK OPERATOR TO INSTALL RING 
022103 MOV #FMTRGI ,-(SP) 
020473 MOV #FMTTXT.<(SP) 
000002 MOV #2,-(SP) 
MOV SP-RO 
TRAP  CSPNTF 
000006 ADD #6,SP 
002230 MOV DLXTOF ,R2 :SPECIFY DELAY MULTIPLIER 
CLR R1 :SPECIFY DELAY CONSTANT 
000004 166526 20%: BIT #B1T2 @TRSR sIF RING IS PRES 
BEQ 30$ “THEN RETURN 
INC R1 “COUNT A TICK 
BNE 20$ “KEEP CHECKING 


CZTRAC.P11 
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é 091370 


H 3 
TESTC GLOBAL SUBROUTINE ASK OPERATOR TO INSTALL WRITE ENABLE RING 


DEC R T DOWN DELAY MULTIPLIER 
BNE ¢ $ KE P wane 
BR $ fF 
30$: ;RING IS P ESENT 
RTS PC 


*SBTTL CHEKI _GLOBAL SUBROUTINE CHECKS TR79 REGISTERS AFTER VALID REWIND 
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000003 
000001 
021156 
020064 


013324 


166502 
166472 
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002176 
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002154 


CHE] GLOBAL SUBROUTINE CHECKS TR79 REGISTERS AFTER VALID REWIND 


CHEKI: 
1$: 


2$: 


#B1T1,aTRS& 
#B1T5,aTRSR 


ETRCR,ATRCR 

10$ 

Re 

_—— 
O$ 






1> 
#T.ESFT 
#ENUM 


PC, CPWR 
PC 


"SBITL TESTJ SUBROUTINE CHECKS TR79 REGISTERS AFTER ILLEGAL COMMANDS 


ERRTYP 
ERRNBR 
#MRW. ERRMSG 
WERRG , ERRBLK 


Aa ty REWIND IN PROGRESS BIT 
;WAIT FOR AT LOAD POINT STATUS 
ERTED 





;TEST COMMAND REGISTER 
INDICATE ERROR 

;TEST STATUS REGISTER 
‘INDICATE ERROR 

ANY ERRORS? 
INERENENT ERROR MBER 








SEQ 34 





J 3 
CZTRAC.P11 30~DEC-81 11:08 TESTJ SUBROUTINE CHECKS TR79 REGISTERS AFTER ILLEGAL COMMANDS 


SEQ 35 


CHEKJ: ; CHECKS TR79 REGISTERS AFTER ILLEGAL COMMANDS 
n JSR PC ,RWWAIT 





"SBTTL CHEKL GLOBAL SUBROUTINE CHECKS REGISTERS AFTER WRITING EOF (TAPE MARK) 





1132 

1133 01 

1134 01 737 0133 

1135 01 737 0132 JSR PYT ; COPY 1R79 REGISTERS 
1136 01 012737 142200 002174 MOV wid 200 ETRCR IFY 

1137 013702 012737 002040 002176 MOV 2040,ET 

1138 013710 042737 001436 002164 BIC #1436, ATRCR 

1139 013716 023737 002174 002164 CMP ETRCR,ATRCR 

1140 013724 001401 BEQ 10$ 

1141 013726 005202 INC R2 

1142 013730 10$: 

1143 013730 023737 002176 002166 CMP ETRSR .ATRSR sTEST STATUS REGISTER 
1144 013736 001401 BEQ 0$ *STATU 

1145 013740 005202 INC R2 ‘INDICATE ERROR 
1146 013742 208: 

1147 013742 005702 TST R2 :1F NO REGISTER ERRORS 
1148 013744 001401 BEQ 30$ ‘EXIT WITH C = 0 
1149 013746 000261 SEC *SET C = 5 he 

1150 013750 004737 013324 30$: JSR PC, CPWR *TR79 POWER CLEAR 
1151 013754 000207 RTS PC 

1152 

1153 

1154 

1155 

1156 





————EEE il 


—_ i re ee em ee re ee 











K 3 
SEQ 56 
CZTRAC.P11 30=DEC-81 11:08 CHEKL GLOBAL SUBROUTINE CHECKS REGISTERS AFTER WRITING EOF (TAPE MARK) 
1138 
1159 013756 004737 013354 CHEKL: JSR PC, RWWAIT sWAIT 
1160 013762 004737 013254 JSR PC“CPYTRR “COPY TR79 REGISTERS 
1161 013766 012737 003234 002174 MOV # é 4 ,ETRCR EXPECTED 
1162 013774 012737 002011 002176 MOV 2011,ETRSR “EXPECTED 
1162 014002 023737 002174 002164 CMP ETRCR,ATRCR “TEST COMMAND REGISTER 
1164 014010 0017401 BEQ 10$ + 0K 
1165 014012 005202 INC R2 ‘INDICATE ERROR 
1166 014014 10$: 
1167 014014 023737 002176 002166 CMP ETRSR -ATRSR sTEST THE STATUS REGISTER 
1168 014022 001401 BEQ 0$ ; 
1169 014024 005202 INC R2 ‘INDICATE ERROR 
1170 014026 20$: 
1171 014026 005702 TST R sANY ERRORS 
1172 30 001415 BEQ 3 7NO 
1173 000002 ENUM = “D<ENUM + 1> “INCREMENT ERROR NUMBER 
1174 014032 012737 000003 002154 MOV #T.ESFT.ERRTYP SSPECIFY SOFT ERROR 
1175 014040 012737 000002 002156 MOV ENUM, ERRNBR ; 
1176 014046 012737 022413 002160 MOV #MWEFFL ERRMSG ; 
1177 014054 012737 020064 002162 MOV #ERR4 ,ERRBLK ; 
1178 014 000261 SEC ; 
1179 014064 000207 30$: ARTS PC : 
1185 
1182 .SBTTL TESTN GLOBAL SUBROUTINE CHECK IF TR79 READY FOR OPERATION 





ee A EE EE 
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L 3 
SEQ 37 
CZTRAC.P11 30-DEC-81 11:08 TESTN GLOBAL SUBROUTINE CHECK IF TR79 READY FOR OPERATION 
1184 -TESTN: 
1185 “IF TRANSPORT I$ NOT ON LINE 
1186 ‘THEN RECORD ER ROR 
1187 : RETURN WIT 31 
1188 > ELSE IF CONTROL wae OR TRANSPORT NOT READY 
1189 ; THE 
1190 ; OTH ¥ 
1191 ; ELSE RETURN WITH C = } (TR79 READY FOR OPERATION) 
1193 .ENABL LSB :BEGIN LOCAL SYMBOL BLOCK 
1195 014066 032777 002000 166150 TESTN: BIT #81710 ,ATRSR s1F TRANSPORT IS ON LINE 
1196 014074 001007 BNE + THEN CHECK READY 
1197 :NOT ON LINE 
1198 000003 ENUM = “D<ENUM + ; INCREMENT ERROR NUMBER 
1199 014076 012737 020766 002160 MOV ven ERRMSG i SPECIFY POINTER TO ERROR MESSAGE 
1200 014104 012737 000003 002156 MOV #ENUM. ERRNBR ‘SPECIFY ERROR 
1201 014112 000415 BR 30$ ‘GOTO COMPLETE ERROR REPORT 
1202 014114 10$: :ON LINE 
1203 014114 032777 002000 166120 TSTRDY: BIT WMTRDY,@TRCR ;1f TRANSPORT NOT READY 
1204 914122 001403 BEQ 20$ : THEN RECORD ERROR 
1205 014124 105777 166112 TSTB  aTRCR 7IF CONTROL UNIT READY 
1206 014130 100415 BM] 40$ THEN EXIT WITH C = O 
1207 014132 :NOT READY 
1208 000004 ENUM = “D<ENUM + 1> s INCREMENT ERROR NUMBER 
1209 014132 012737 021040 002160 MOV #EM2A, ERRMSG “SPECIFY POINTER TO ERROR MESSAGE 
1210 014140 012737 000004 002156 MOV #ENUM, ERRNBR ‘SPECIFY ERROR NUMBER 
1211 014146 30S: E ERROR RE 
1212 014146 012737 000003 002154 MOV #T.ESFT.ERRTYP s SPECIFY T’ ERROR 
1213 014154 012737 017754 002162 MOV #ERR3 ,ERRBLK *SPECIFY POINTER TO ERROR HANDLER 
1214 014162 000261 SEC ; ; 1 
1215 014164 000207 40$: RTS Pc ; 
1216 .DSABL LSB ; AL SYMBOL BLOCK 
1549 
1220 .SBTTL TESTNN GLOBAL SUBROUTINE ASK OPERATOR TO PUT TAPE ON LINE 
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SEQ 38 
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002230 
002000 


021057 
020473 
009002 


000006 


165774 


166042 


TESTNN GLOBAL SUBROUTINE ASK OPERATOR TO PUT TAPE ON LINE 


29 
: TESTNN: IF TRANSPORT IS 
: IF 1 MINUTE HAS 
“TESTNI: ASK OPERATOR TO 
: GOTO TESTNN 
.ENABL LSB 
TESTNA: 
10$: OV DLXTOF ,R2 
20$: BIT #B1T10,aTRSR 
BNE 30$ 
INC R1 
BNE 20$ 
DEC R 
BNE 20$ 
TESTN1: PRINTF #FMTTXT,.#M2A 
MOV #M2A, ~( 
MOV #FMTTXT,-(SP) 
= ge 
TRAP  CSPNTF 
ADD a6 SP 
10$ 
30$: :0N LI 
TST aTACR 
BPL 40$ 
SEC 
40$: RTS PC 


- TEST RESULT AFTER WRITE IDB FROM LOAD POINT 


“SBTTL CHEKO 


:ASK OPERATOR TO PUT TRANSPORT 


Lie THEN TEST IF READY 
RANSPORT ON LINE 


;BEGIN LOCAL SYMBOL BLOCK 
;WAIT FOR TRANSPORT 







ON LINE 
SPECIFY DELAY RULTIPLIER 
; SPECIFY DELAY CONSTAN 
;1F TRANSPORT IS ON MINE 
i THEN ‘eit ERROR INDICATOR 


“KEEP CHE CK ING 
COUNT DOWN DELAY MULTIPLIER 
7KEEP CHECKING 





ON LINE 
; ASK OPERATOR TO PUT TRANSPORT ON LINE 


;CHECK IF ON LI" 

: IF NO ERROR 

; THEN RETURN WITH C 
; ELSE RETURN WITH C 


sEND LOCAL SYMBOL BLOCK 


“nou 
-—O 








ee -_—- - 
= EE EEE ee ee ee ee 
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1264 014254 
1265 014260 
1266 014264 
1267 014272 
1268 014300 
1269 914306 
1270 014310 
1271 014312 
1272 014312 
1273 014320 
1274 01432 
1275 014324 
1276 01432 
1277 014326 
1278 

1279 014330 
1280 014336 
1281 014344 
1282 014352 
1283 4360 
1284 014362 
1285 
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CHEKO 


CHEKO: 


30$: 


N 3 


——_ ee ee ee eee ee 


TEST RESULT AFTER WRITE IDB FROM LOAD POINT 


PC ,RWWAIT 
ETRER, SATRCR 
10$ 
—— 
O$ 


Re 


+ 1> 
Oe ERRTYP 


ERRNBR 
#MWILPFL ERRMSG 
#ERRG , ERRBLK 


PC 


WAIT 

COPY TR79 REG 
SPECIFY EXPECTE 
SPECIFY EXPEC 
Tee! C 


‘INDICATE ERROR 


; TEST THE STATUS REGISTER 


; OK 
7; INDICATE ERROR 


; SPECIFY ERROR NUMBER 
i SPECIFY POINTER TO ERROR MESSAGE 
ere © Y ‘a TO ERROR HANDLER 


7 ANY ERRORS? 


TED RESULT 
OMMAND REGISTER 


“INCREMENT ERROR NUMBER 
: SPECIFY *SOFT* ERROR 


SUBROUT INE CHECKS DATA READ IN TESTS A AND TESTS 


“SBITL CHEKS 


SEQ 39 


a aesay EXPECTED RESULTS 
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SEQ 40 
CHEKS SUBROUTINE CHECKS DATA READ IN TEST4 AND TESTS | 
:COMPARE DATA WRITTEN FROM OUTPUT AREA 
: WITH DATA READ INTO INPUT AREA 
:IF ALL COMPARES YIELD ‘‘EQUAL’’ 
: THEN EXIT WITH C = 0 
* ELSE RECORD ERROR AND EXIT WITH C = 1 
CHEKS: MOV INPUT {POINT TO DATA READ 
MOV #OUTPUT ,R2 ;POINT TO DATA WRITTEN 
MOV USEB,R3 C 
10$: MOV R1, LINPUT ‘SPECIFY INPUT LOCATION 
MOV ari, AINPU *COPY DATA READ 
MOV 2°EIN “COPY DATA WRITTEN 
CMP PRIS eR )+ ‘CHECK INPUT WITH OUTPUT 
BNE 208 ERROR 
INC R *0K. INCREMENT WORD COUNT 
BNE 108 “CHECK NEXT WORD OF DATA 
208 BR 308 ALL DONE. NO ERRORS 
ENUM = “D<ENUM + 1> INCREMENT ERROR NUMBER 
MOV aT ESF I ERRTYP “SPECIFY ‘SOFT’ ERROR 
MOV *SPECIFY ERROR NUMBER 
MOV #MRDERR ERRMSG “SPECIFY POINTER TO ERROR MESSAGE 
MOV #ERR fk Enns “SPECIFY POINTER TO ERROR HANDLER 
SEC [SET C = 1 
BR 40$ 
30$: 
CLC :SET C = 0 
40$: RTS PC *RETURN 








*SBTTL CHEKS1 SUBROUTINE CLEARS INPUT AREA 


C 4 


SEQ 41 

CZTRAC.P11 30=DEC-81 11:08 CHEKS1 SUBROUTINE CLEARS INPUT AREA ; 

1324 

1325 014466 CHEKS1: 

1326 014466 012701 006522 MOY —s #INPUT,R1 :POINT TO INPUT AREA 

132? 014472 012702 177000 MOV —s-s #=1000°R2 “SPECIFY COUNT FOR CLEAR INPUT 

1328 014476 005021 10$: CLR (R1)+ “CLEAR INPUT WORD 

1329 014500 005202 INC * COUNT 

1330 014502 001375 BNE 10$ “CONTINUE CLEARING 

1331 014504 000207 RTS —s- PC “RETURN 

ae 

1335 "SBTTL CHEKU GLOBAL SUBROUTINE CHECK REGISTERS AFTER SPACE REVERSE OVER EOF 
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D 4 
CHEKU GLOBAL SUBROUTINE CHECK REGISTERS AFTER SPACE REVERSE OVER EOF 





CHEKU: JSR PC .RWWAIT 
JSR PC’ CPYTRR 
MOV # G10,ETRCR 
MOV #2011,ETRSR 
CMP ETRCR,ATRCR 
BEQ 10$ 
INC 2 

10$: 
CMP ETRSR -ATRSR 
BEQ 0$ 
INC R2 

208: 
TST ATRBA 
BEQ 30$ 
INC R2 

30$: 
TST ATRWC 
BEQ 40$ 
INC de 

40$: 
TST R 
BEQ 5 

ENUM = “D<ENUM + 1> 
MOV #T.ESFT,ERRTYP 
MOV NUM, ERRNBR 
MOV WMSREFFL ERRMSG 
MOV #ERRS , ERRBLK 


50$: RTS PC 


“SBTTL CHEKV 


sWAIT 

;COPY TR79 REGISTERS 

; EXPECTED 

s EXPECTED 

Tee! COMMAND REGISTER 
; INDICATE ERROR 


sTEST THE STATUS REGISTER 
S INDICATE ERROR 


TEST WORD COUNT 


sANY ERRORS? 





GLOBAL SUBROUTINE CHECK REGISTERS AFTER READING EOF (TAPE MARK) 


SEQ 42 


—— 
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002170 
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000010 
022726 
020102 
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60 
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CHEKV 


CHEKV: 


10$: 
208: 
30$: 


40$: 


ENUM = 


50S: 


E 4 


GLOBAL SUBROUTINE CHECK REGISTERS AFTER READING EOF (TAPE MARK) 


if 


“DcEMM + 


—— 

0$ 

—_—— 
0$ 


ATRWC 
40$ 
R2 
R2 


+ 1> 
aT. if! ERRTYP 


#E 
SAREE FL ERRMSG 
#ERRS , ERRBLK 


PC 





WAIT 
;COPY TR79 REGISTERS 
CTED 


7 EX 
is EXPECTED 
EXPECT ED 
; TEST COMMAND REGISTER 


0K 
INDICATE ERROR 

:TEST THE STATUS REGISTER 
‘INDICATE ERROR 

;TEST BUFFER ADDRESS 

S INDICATE ERROR 

;TEST WORD COUNT 
‘INDICATE ERROR 


sANY ERRORS? 
NO 








"SBTTL CHEKAC GLOBAL SUBROUTINE CHEK REGISTERS AFTER READ WITH LONG WORD COUNT 


F 4 














SEQ 44 

CZTRAC.P11 30=DEC-81 11:08 CHEKAC GLOBAL SUBROUTINE CHEK REGISTERS AFTER READ WITH LONG WORD COUNT 

1408 

1409 014776 004737 013354 CHEKAC: JSR PC .RWWAIT sWAIT 

1410 015002 004737 013254 JSR PC ACP PYTRR “COPY TR79 REGISTERS 

1411 015006 012737 108804 002174 MOV 204 ETRCR ‘EXPECTED 

1412 015014 012737 003001 002176 MOV #3001, ETRSR s EXPECTED 

1413 0150¢2 012737 006520 002202 MOV #INP Nutt 76 ETRBA S EXPECTED 

1414 015030 023737 002174 002164 CMP ETRCR,ATRCR ‘TEST COMMAND REGISTER 

1415 015036 001401 BEQ 10$ * 0K 

1416 015040 005202 INC R ‘INDICATE ERROR 

1417 015042 10$: 

1418 01 023737 002176 002166 CMP ETRSR-ATRSR sTEST THE STATUS REGISTER 

1419 015050 001401 BEQ 0$ 70K 

1420 015052 005202 INC ‘INDICATE ERROR 

1421 015054 208: 

1422 015054 023737 002202 002172 CMP ETRBAATRBA sTEST BUFFER ADDRESS 

1423 015062 001401 BEQ 0$ 70K 

1424 015064 005202 INC R2 * INDICATE ERROR 

1425 015066 30S: 

1426 015066 005737 002170 TST ATRWC :TEST THE WORD COUN) 

1427 015072 001401 BEQ 40$ ; 

1428 015074 005202 INC R2 ‘INDICATE ERROR 

1430 015076 40$: 

1431 015076 005702 TST R2 ZANY ERRORS? 

1432 015100 001415 BEQ 50 NO 

1433 000011 ENUM = “D<ENUM + 17> 5 

1434 015102 012737 000003 002154 MOV #7. ESFT,ERRTYP : 

1435 015110 012737 000011 002156 MOV #ENUM, ERRNBR ; 

1436 015116 012737 023166 002160 MOV #ARCFL, ERRMSG ; 

1437 015124 012737 020102 002162 MOV #ERRS ,ERRBLK : 

1438 015132 000261 SEC : 

1439 015134 004737 013324 50$: JSR PC, CPWR ; 

1440 015140 000207 RTS PC : 

1441 

1443 

1444 -*SBTTL CHEKAD GLOBAL SUBROUTINE CHECKS REGISTER AFTER READ WITH SHORT COUNT 
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SEQ 45 

CZTRAC.P11 30=DEC-81 11:08 CHEKAD GLOBAL SUBROUTINE CHECKS REGISTER AFTER READ WITH SHORT COUNT 

1446 

144? 015142 004737 013354 CHEKAD: JSR PC ,RWWAIT sWAIT 

1448 015146 004737 013254 JSR PC’ CPYTRR “COPY TR79 REGISTERS 

1449 015152 012737 102804 002174 MOV ui 204 ETRCR “EXPECTED 

1450 015160 012737 003001 002176 MOV #3001,€ RSR “EXPECTED 

1451 015166 012737 006522 00220¢ MOV #INPUT+200,ETRBA S EXPECTED 

1452 015174 012737 177777 002200 MOV #=-1,ETRW S EXPECTED 

1453 015202 023737 002174 002164 CMP ETRCR,ATRCR “TEST COMMAND REGISTER 

1454 015210 001401 BEQ 10$ : OK 

1455 015212 005202 INC R2 ‘INDICATE ERROR 

1456 015214 10$: 

1457. 015214 023737 002176 002166 CMP ETRSR -ATRSR sTEST THE STATUS REGISTER 

1458 015222 001401 BEQ 0$ ; 

1459 015224 005202 INC R2 ‘INDICATE ERROR 

1460 015226 208: 

1461 015226 023737 002202 002172 CMP ETRBAATRBA : TEST BUFFER ADDRESS 

1462 015234 001401 BEQ 0$ 70K 

1463 236 005202 INC R2 * INDICATE ERROR 

1464 015240 30$: 

1465 015240 023737 002200 002170 CMP ETRWC ATRWC :TEST THE WORD COUNT 

1466 015246 001401 BEQ 40$ ; 

1467 015250 005202 INC R2 ‘INDICATE ERROR 

1469 0715252 40$: 

1470 015252 005702 TST R2 

1471 015254 001415 BEQ 50$ 

1472 000012 ENUM = “D<ENUM + 1> 

1473 015256 012737 000003 002154 MOV #T.ESFT.ERRTYP 

1474 015264 012737 000012 002156 MOV #ENUM, ERRNBR 

1475 015272 012737 023166 002760 MOV #MRCFL, ERRMSG 

1476 015300 012737 020102 002162 MOV #ERRS , ERRBLK 

1477 015306 000261 SEC 

1478 015310 004737 013324 50$: JSR PC, CPWR 

1479 015314 000207 RTS PC 

1480 

1482 

1483 "SBTTL CHEKAE GLOBAL SUBROUTINE CHECK REGISTERS AFTER SPACE REVERSE WITH SHORT COUNT 
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002200 
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CHEKAE GLOBAL SUBROUTINE CHECK REGISTERS AFTER SPACE REVERSE WITH SHORT COUNT 


CHEKAE: tt 


10$: 
208: 
30$: 


40$: 


ENUM = “DcEMM ¢ 


50$: 


ta 


a 
0$ 


ATRBA 

30$ 

R2 

ETRWC ,ATRWC 
40$ 

R2 

R 


+ 1> 
#T.ESFT ,ERRTYP 


#MRCEL, ERRMSG 
#ERRS , ERRBLK 


PC, CPWR 
PC 









‘COPY TR79 REGISTERS 

; TED 

: EXPECTED 

TEST COMMAND REGISTER 
Foscare ERROR 

;TEST THE STATUS REGISTER 
‘INDICATE ERROR 

;TEST BUFFER ADDRESS 

: INDICATE ERROR 

;TEST THE WORD COUNT 
‘INDICATE ERROR 

ANY ERRORS? 

neve coon moc 





"SBITL CHEKAF SUBROUTINE CHECK REGISTERS AFTER SPACE REVERSE WITH LONG COUNT 


SEQ 46 — 


———a nl 
ee 


I 4 
CZTRAC.P11 30-DEC-81 11:08 CHEKAF SUBROUTINE CHECK REGISTERS AFTER SPACE REVERSE WITH LONG COUNT 










SEQ 47 











1523 015462 004737 013354 CHEKAF: JSR PC .RWWAIT sWAIT 
1524 015466 004737 013254 JSR p CPYTRR “COPY TR79 REGISTERS 
1525 015472 012737 003610 002174 MOV #3610, ETRCR S EXPECTED 

1526 015500 012737 002001 002176 MOV 4 4 TRSR i EXPECTED 

1527 015506 010737 177677 002200 MOV #177677, ,ETRWC i EAPECT ED 

1528 015514 023737 002774 002164 CMP ETRCR. ATRCR ;TEST COMMAND REGISTER 
1529 015522 001401 BEQ 10$ + 0K 

1530 015524 005202 INC R ‘INDICATE ERROR 

1531 015526 10$: 

1532 015526 023737 002176 002166 CMP ETRSR -ATRSR :TEST THE STATUS REGISTER 
1533 015534 001401 BEQ 0$ 70K 

1534 015536 005202 INC R2 ‘INDICATE ERROR 

1535 015540 208: 

1536 015540 005737 002172 TST ATRBA : TEST BUFFER ADDRESS 
1537 015544 001401 BEQ 30$ ; 

1538 015546 005202 INC R2 ‘INDICATE ERROR 

1539 015550 30$: > 

7540 015550 023737 002200 002170 CMP ETRWC,ATRWC sTEST THE WORD COUNT 
1541 015556 001401 BEQ 40$ : OK 

1542 015560 005202 INC R * INDICATE ERROR 

1543 015562 40S: 

1544 015562 005702 TST R ZANY ERRORS? 

1545 015564 001415 BEQ 50$ ; 

1546 14 ENUM = “D<ENUM + 1> ; INCREMENT ERROR NUMBER 
1547 015566 012737 002154 MOV at ESF : Y SOFT ERROR 
1548 015574 012737 002156 MOV : y 

1549 015602 012737 023166 002160 MOV ; 

1550 015610 012737 020102 002162 : ¥ 

1551 015616 000261 SEC : = 

1552 015620 004737 013324 50$: JSR : 

1553 015624 000207 RTS : 

1554 

HE 

1357 "SBTTL CHEKAG CHECK REGISTERS AFTER FAST F TO EOT 


Gepsemnseneees eee SEE eee rs - 


CZTRAC 
1559 


Sapa r g 
WINN NVISSaS 


SIPSSIBBVS 


© 
™N 


ar hr lL ee LL LL, es LL, Le LT Le eee eee 
MMII Sees w 
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B38 


-P11 


015744 
015746 
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013354 
164404 


002000 
164366 
013254 
003226 
002201 
002174 
002176 
002172 


002170 


000003 
000015 
023203 
020102 


16 


4374 


CHEKAG 


CHEKAG: 


10$: 


15$: 


20$: 


30$: 


40$: 


50$: 


ENUM = 


60$: 


J 4 





CHECK REGISTERS AFTER FAST FORWARD TO EOT 
JSR PC RWWAIT WAIT 

TST aTRCR “IF TERROR INDICA TED 

BM] 15$ : THEN RECORD TR79 REGISTERS 
BIT WMTRDY,@TRCR “JF NOT 

BEQ 15$ ; THEN RECORD TR79 REGISTERS 
TSTB  atRCR ‘IF NOT CURDY 

BPL 10$ 7 THEN KEEP CHECKING 

JSR PC_CPYTRR ; COPY Y TR79 REGISTERS 

MOV # : 6,ETRCR XPECTED 

MOV #2 1 ETRSR + EXPECTED 

CMP ETRCR.ATRCR ‘TEST COMMAND REGISTER 
BEQ 20s + OK 

INC R s INDICATE ERROR 

CHP ETRSR .ATRSR sTEST THE STATUS REGISTER 
INC 3 * INDICATE ERROR 

TST ATRBA :TEST BUFFER ADDRESS 

BEQ = 370K 

INC R ‘INDICATE ERROR 

TST ATRWC :TEST THE WORD COUNT 

BEQ 50$ : 

INC R2 ‘ INDICATE ERROR 

TST R ZANY ERRORS? 

BEQ 6 :NO 
“D<ENUM + 1> S INCREMENT ERROR NUMBER 
MOV #T.ESFT,ERRTYP >SPECIFY SOFT ERROR 

MOV :SPECIF 

MOV ame TEL ERRMSG > SPECIF 

MOV 5 ERRBL : SPECIF 

SEC 7SET C 

RTS PC RETURN 





"SBTTL CHKAG] SUBROUTINE CHECKS REGISTERS AFTER WRITE BEYOND EOT 


SEQ 48 


a | 

mw 

—_> =f 
Soo > 
WN > 


SECRaE 


AAAAAOAOOOO 
ee et ed ee eed ed ed et 
DONOULS WHO 


ee cr el cr ce et eh ee ee eh el eel eed eel ed eee eed ee 
EWN 


RRRRRRE 


B3e8 


3 


1631 


-P11 


016120 
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002170 


0000 
012737 000003 


000016 
012737 023501 
020120 


002154 


002162 


CHKAG1 SUBROUTINE CHECKS REGISTERS AFTER WRITE BEYOND EOT 


CHKAG1: 1s 


60$: 
70$: 


80$: 
TST 


Q 
ENUM = _ + 


903: RTS 


K 4 


 aladiaaan 
O$ 
R2 


ATRWC 
80$ 
R2 

R 


1> 
#T.ESFT,ERRTYP 
#E 


#MWPE TFL, ERRMSG 
#WERRG, ERRBLK 


PC 


"SBITL CHEKAV SUBROUTINE CHECKS REGISTERS AFTER SPACE REVERSE OVER ID BLOCK 


shAlT 
;COPY TR79 REGISTERS 
EXPECTED 


EXPECTED 


; TEST COMMAND REGISTER 


OK 
; INDICATE ERROR 


; TEST THE STATUS REGISTER 


“INDICATE ERROR 


TEST THE WORD COUNT 


; OK 
; INDICATE ERROR 
sANY ERRORS 


T INCREMENT ERROR NUMBER 





;SPECIFY ERROR TYPE 
;ERROR NUMBER 


SE 


4Y 


‘SERPS Serr pe a aR AR rca eh Pr eae — 
L 4 


SEQ 50 
CZTRAC.P11  30=DEC-81 11:08 CHEKAV SUBROUTINE CHECKS REGISTERS AFTER SPACE REVERSE OVER ID BLOCK 
1632 
1633 016122 004737 013354 CHEKAV: JSR PC .RWWAIT ;WALT 
1634 016126 004737 013254 JSR PC’ CPYTRR ;COPY TR79 REGISTERS 
1635 016132 012737 003610 002174 MOV # G10,ETRCR CTED 
1636 016140 012737 002061 002176 MOV #2061.ETRSR “EX PECTED 
1637 016146 013737 002214 002200 MOV USEB, ETRWC EXPECTED 
1638 016154 023737 002174 002164 CMP ETRCR, ATRCR “TEST COMMAND REGISTER 
1639 016162 001401 BEQ + OK 
1640 016164 005202 INC ao * INDICATE ERROR 
1641 016166 10$: 
1642 016166 023737 002176 002166 CMP ETRSRATRSR sTEST THE STATUS REGISTER 
1643 016174 001401 BEQ 0$ ; 
1644 016176 005202 INC R2 ‘ INDICATE ERROR 
1645 016260 20S: 
1646 016200 005737 002172 TST ATRBA s TEST BUFFER ADDRESS 
1647 016204 001401 BEQ 30$ 7 OK 
1648 016206 005202 - INC R2 ‘INDICATE ERROR 
1650 916210 023737 002200 002170 CMP ETRWC ,ATRWC sTEST THE WORD COUNT 
1651 016216 001401 BEQ 40$ ; 
1652 016220 005202 INC R2 ‘ INDICATE ERROR 
1653 01622 40$: 
1654 016222 005702 TST R ;ANY ERRORS? 
1655 016224 001415 BEQ 50$ 
1656 000017 ENUM = *D<ENUM + 1> “INCREMENT ERROR NUMBER 
1657 016226 012737 000003 002154 MOV #T.ESFT,ERRTYP ‘SPECIFY SOFT ERROR 
1658 016234 012737 000017 002156 MOV ,ERRNBR “SPECIFY ERROR R 
1659 016242 012737 023620 002160 MOV #MSRIFL, ERRMSG “SPECIFY ERROR MESSAGE 
1660 016250 012737 020102 002162 MOV #ERRS , ERRBLK “SPECIFY ERROR HANDLER 
1661 016256 000261 SEC “SET C = 1 
1662 016260 000207 S0$: RTS PC “RETURN 
1 664 e ce i = oe om oe ae oe SS wt er, wR wey am me eRe EDR BE SE eS eS ES Se 
1665 “SBTTL CHEKAW SUBROUT INE CHECKS REGISTERS AFTER READING AN ID BLOCK 


RGR Tac a eee 
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eo lelelelelal a] a) 
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34 
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002200 


002206 


000020 
023654 


020244 


002166 


002172 


002170 


002204 


— ae eee -—-~- oe ee 


mM 4 
CHEKAW SUBROUTINE CHECKS REGISTERS AFTER READING AN ID BLOCK 


CHEKAW: JSR PC ,RWWAIT WAIT 
JSR PC CPYTRR “COPY TR79 REGISTERS 
MOV #5806 EIRCR s EXPECTED 
MOV #2021 .ETRSR “EXPECTED 
MOV INPUT ETRBA i EXPECTED 
MOV ETRW S EXPECTED 
CMP ETRCR, ATRER ;TEST COMMAND REGISTER 
sis INC R2 “INDICATE ERROR 
: CMP ETRSR -ATRSR ;TEST THE STATUS REGISTER 
a INC R2 “INDICATE ERROR 
"CMP ETRBA,ATRBA sTEST BUFFER ADDRESS 
BEQ 0$ 30K 
a INC R2 * INDICATE ERROR 
"CMP ETRWC ,ATRWC sTEST THE WORD COUNT 
BEQ 40$ ; 
= INC R2 ‘INDICATE ERROR 
7 E INPUT sCLEAR WORD FOR EXPECTED VALUE 
CLR AINPUT *CLEAR WORD FOR ACTUAL VALUE 
TST INPUT ‘TEST INPUT AREA 
BEQ 50$ 
MOV INPUT , AINPUT * ACTUAL 
sin INC R2 ‘INDICATE ERROR 
Is! R ZANY ERRORS? 
ENUM = “D<ENUM + 1> ; INCREMEN T ERROR NUMBER 
MOV aT. ESFT.ERRTYP *SPECIFY SOFT ERROR 
MOV #ENUM,, ERRNBR ‘SPECIFY ERROR NUMBER 
MOV #MRIBEL ERRMSG 7SPECIFY ERROR MESSAGE 
MOV WERR15, ERRBLK “SPECIFY ERROR HANDLER 
SEC 7SET C = 1 
60$: RTS PC “RETURN 


SEQ 51 


cm 


CZTRAC.P11 
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a" 


MONIKA 2 et tt 


SN NNN SSS 
CON AUF WN =O OONOUL Ww 


SN NN OS 
MMMM 


ee ee ee ee ee ee ee ce ce ee en ce ee et ee ee we ed ed eed et ed ed ed et od od dd od od et 
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LA 
— 


NN 
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016574 


016576 
0 


005202 
023737 


013701 
005101 
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002170 


000003 
000021 
023674 


020102 


013324 


002166 


002154 


ee ee ——— es -— _ 


N 4 
CHEKAX SUBROUTINE CHECKS REGISTERS AFTER WRITE DATA WITH EVEN PARITY 


CHEKAX: JSR PC ,RWWAIT sWAIT 
JSR PC CPYTRR “COPY TR79 REGISTERS 
MOV H105602 ERR “EXPECTED 
MOV #16 ETRSR “EXPECTED 
CMP ETR TRCR “TEST COMMAND REGISTER 
~ INC R2 “ INDICATE ERROR 
CMP ETRSR -ATRSR :TEST THE STATUS REGISTER 
- INC R2 “ INDICATE ERROR 
"MOV USEB,R1 sGET WORD COUNT 
COM R1 sF IX 
INC R1 s INCREMENT IT 
ASL 1 : E IT 
ADD #BADOUT .R1 “FINISH IT 
MOV R1,ETRBA “EXPECTED 
CMP RI ,ATRBA ‘TEST BUFFER ADDRESS 
- INC R2 * INDICATE ERROR 
TST ATRWC :TEST THE WORD COUNT 
BEQ 40$ > OK 
een INC 22 * INDICATE ERROR 
. R2 sANY ERRORS? 
BEQ 50$ : 
ENUM = “D<ENUM + 1> 7 INCREMENT ERROR NUMBER 
MOV #7. ESFT.ERRTYP “SPECIFY SOFT ERROR 
MOV #ENUM . * SPECIFY ERROR R 
MOV #MPARFL ERRMSG “SPECIFY ERROR MESSAGE 
MOV WERRS , ERRBLK *SPECIFY ERROR HANDLER 
SEC “SET C = 1 
50$: JSR PC, CPWR sRESET TR79 
RTS PC * RETURN 


*SBITL CHEKAY SUBROUTINE CHECKS REGISTERS AFTERREVERSE OVER EVEN PARITY DATA 


fem Ge SD Ge ee Om Ey OD Mo SF GO MM Sy ar sO Om _ oe ww DSO SBS ewe OTe SS BS ZT eee VWF BeOWeseeBeeewoeonmwoewoeewerowr woe 


SEQ 52 
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me ee ee ee ee ee oe ee ee oe oe ar or ar ar arr 
~™NMNNS 
NIVVASSSSASA AAS 
oOoCcoo 
amd 


ERRERE 


SsaeaeasIa5 


em ed ed eh eed eed od oe 8 
~~ 
peta 

™N 


-P11 


SESSARS 
SSaee oR 


pole lelololololelololo) 
MONn 


ee ee ed ed cee ed eed eed ed ed od 
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™N 
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& 


016720 
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000003 
000022 
023712 
020102 


013324 


002170 


002154 
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CHEKAY SUBROUTINE CHECKS REGISTERS AFTERREVERSE OVER EVEN PARITY DATA 


CHEKAY: JSR 


10$: 


20$: 


30$: 


40$: 


5 
ENUM = “D<ENUM + 1> 
AS gl ERRTYP 


E 
reasithse 


50S: 
RTS 


-SBTTL CHEKAZ SUBROUTINE CHECK REGISTERS AFTER READING EVEN PARITY DATA 


PC ,RWWAIT 
PC’ CPYTRR 
#103610, ETRCR 
#122001,ETRSR 
#177700, ETRWC 
ETRCR.ATRCR 


R 

—_, 
0$ 

Re 


ATRBA 

30$, 

R2 

ETRWC ,ATRWC 
40$ 


R2 


PC, CPWR 
PC 


sWAIT 
;COPY TR79 REGISTERS 
; EXPECTED 


S EXPECTED 
EXPECTED 

“TEST COMMAND REGISTER 
‘INDICATE ERROR 

;TEST THE STATUS REGISTER 
‘INDICATE ERROR 

;TEST BUFFER ADDRESS 
INDICATE ERROR 

;TEST THE WORD COUNT 
{INDICATE ERROR 

;ANY ERRORS? 


: INCREMENT ERROR NUMBER 
SOFT E 





~CZTRAC.P11 


1789 
1790 


332 


SeleuRaRcsseleee 


02 09 Od Od 0d Od 09 Go 00 Co 
ed ed ceed ced ceed nd ond aed ed cd 
WONAUEWN—$© 


SASS 


Wie 
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023737 
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005202 


023737 
001401 
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002200 


000023 
023746 
020102 
013324 


002172 


002170 


g 3 


CHEKAZ SUBROUTINE CHECK REGISTERS AFTER READING EVEN PARITY DATA 


CHEKAZ: 


10$: 


20S: 


30$: 


40S: 


BEQ 50$ 
ENUM = “D<ENUM + 1> 
MOV 


50S: 





JSR PC ,RWWAIT 

JSR PC PYTR 

MOV #10 2 4,ETRCR 

MOV #163001 .ETRSR 

MOV HINPUT #2 ETRBA 

MOV #177701, ETRWC 

CMP TRCR,ATRCR 

BEQ 19s 

INC 

CMP ETRSR,ATRSR 

BEQ 20$ 

INC R2 

CMP ETRBA ATRBA 

BEQ $ 

INC R 

CMP ETRWC ,ATRWC 

BEQ 40$ 

INC 

TST R 
#T.ESFT,ERRTYP 

MOV #ENUM, ERRNBR 

MOV WMREPFL ERRMSG 

nov #ERRS , ERRBLK 

JSR PC, CPWR 

RTS PC 


WAIT 
;COPY TR79 REGISTERS 
s EXPECTED 


“ EXPECTED 
“EXPECTED 

sEXPECTED 

iTEST COMMAND REGISTER 
“INDICATE ERROR 

sTEST THE STATUS REGISTER 
“INDICATE ERROR 

sTEST BUFFER ADDRESS 


OK 
; INDICATE ERROR 


sTEST THE WORD COUNT 
S INDICATE ERROR 









POWER CLEAR 
TURN 


-SBTTL CHEKCX SUBROUTINE CHECKS TR79 REGISTERS AFTER WRITE 
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SEQ 54 | 
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34 


Wu 
WN—Oo 


a LT ee ee ee ee eee 
00 09 CO Oo 


™Nm 
on 


-P11 


kk ed ed ed ad od od 
SN NN NN 
ONDA 


rmnrnonn 
i td 
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020120 


002174 
002176 
002164 


002166 


dD 5 


CHEKCX SUBROUTINE CHECKS TR79 REGISTERS AFTER WRITE 


CHEKCX: JSR PC .RWWAIT 
JSR 


CMP EFRCR. ATRCR 
10$ 


10$: 
CMP — 
0$ 


TST ATRWC 
BEQ 30$ 
R2 


+ 1> 

#T.ESFT ERRTYP 
NUM, E 

mur TFL ERRMSG 





-ERRBL 


40$: RTS PC 


WAIT 
‘COPY TR79 REGISTERS 
EXPECTED 


EXPECTED 
:TEST COMMAND REGISTER 


+ OK 
SINDICATE ERROR 

sTEST THE STATUS REGISTER 
‘INDICATE ERROR 


:TEST WORD COUNT 
S INDICATE ERROR 





- SBTTL CHEKDX SUBROUTINE CHECKS TR79 REGISTERS AFTER READ 


® 


SEG 55 
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CHEKDX SUBROUTINE CHECKS TR79 REGISTERS AFTER READ 


CHEKDX: JSR PC, RWWAIT 
JSR PC CPYTRR 
MOV é 4,ETRCR 
MOV #2001,ETRSR 
CMP ETRCR,ATRCR 
BEQ 
INC 

10$: 
CMP ETRSR.ATRSR 
BEQ $ 
INC 

20$: 
TST ATRWC 
BEQ 30$ 
INC 

30$: 
TST 
BEQ 4 

ENUM = “D<ENUM + 1> 
MOV #7. ESFT,ERRTYP 
MOV R 
MOV ampor L ERRMSG 
MOV RR6, ERRBL 
SEC 

40$: RTS PC 





;WAIT 
+ COPY hg REGISTERS 


A i 
sEXPECT ED 
TEST COMMAND REGISTER 


10K cate ERROR 

TEST THE STATUS REGISTER 
INDICATE ERROR 

;TEST WORD COUNT 
INDICATE ERROR 

ANY ERRORS? 





; SPECIFY _ HANDLER 
:SET C = 


-SBTTL CHEKEX SUBROUTINE CHECKS TR79 REGISTERS AFTER SPACE REVERSE 


CZTRAC 


——_ 


SESSEz 


WN 


Bee 3 3385333883838 S8SSSS5SS 
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000026 
021774 
020120 


002166 


= 


SEQ 57 | 


CHEKEX SUBROUTINE CHECKS TR79 REGISTERS AFTER SPACE REVERSE 


CHEKEX: JSR PC ,RWWAIT 
JSR PYT 


Cae 
MOV # SUT Eras 
MOV USEB,ETRWC 
CMP ETRCRATRER 
BEQ los 





INC 
10$: 
CMP ETRSR -ATRSR 
BEQ $ 
INC R 
20$: 
CMP ET RWC -ATRUC 
BEQ $ 
INC R 
30$: 
TST R 
BEQ 40$ 
ENUM = “D<ENUM + 1> 
MOV #T.ESFT,ERRTYP 
MOV 
MOV #MSRVFL ERRMSG 
MOV WERR6 ,ERRBLK 


40$: RTS PC 


"SBITL CHEKFX GLOBAL SUBROUTINE --TEST TR79 REGISTERS AFTER ERASE~- 











= 


I 
;TEST THE STATUS REGISTER 





Se Ge Se Se Se Ge Ge Se Fe 


G 5 


CZTRAC.P11 30=DEC-81 11:08 CHEKFX GLOBAL SUBROUTINE --TEST TR79 REGISTERS AFTER ERASE~- 
1921 
1922 017546 004737 013354 CHEKFX: JSR PC ,RWWAIT WAIT 
1923 017552 004737 013254 JSR p CPYTRR “COPY TR79 REGISTERS, CLEAR EXPECTED RESULT 
1924 017556 012737 002916 002174 MOV e : G.ETRCR i SPECIEY EXPECTED R RESULT 
1925 017504 012737 002001 002176 MOV #2001, ETRSR “SPECIFY EXPECTED RESUL 
1926 017572 023737 002174 002164 CMP ETRCR,ATRCR “TEST COMMAND REGISTER’ 
1927 017600 00140 BEQ 19s + OK 
1928 017602 005202 INC R ‘INDICATE ERROR 
1929 017604 108: 
1930 017604 023737 002176 002166 CMP ETRSR,ATRSR s TEST THE STATUS REGISTER 
1931 017612 001401 BEQ * OK 
1932 017614 005202 INC “ INDICATE ERROR 
1933 017616 208: 
1934 017616 013701 002214 MOV USEB,R1 sGET WORD COUNT 
1935 017622 00510 COM R1 “FIX IT 
1936 017624 005201 INC RI 
1937 017626 006301 ASL RI ; 
1938 017630 062701 002262 ADD #OUTPUT.R1 ; 
1939 017634 010137 002202 MOV R1,ETRB : 
1940 017640 020137 002172 CMP R1_ATRBA : 
1941 017644 00140 BEQ 30$ ; 
1942 017646 005202 INC R2 “INDICATE ERROR 
1943 017650 30S: 
1944 017650 005737 002170 TST ATRWC sTEST THE WORD COUNT 
1945 017654 001401 BEQ 40$ 
1946 017656 005202 INC R2 
1947 017660 40$: 
1948 017660 005702 TST R2 
1949 017662 001415 BEQ 5 ; 
1950 27 ENUM = “D<ENUM ¢ 1> ; 
1951 017664 012737 000003 002154 MOV #7. ESFT.ERRTYP ° 
1952 017672 012737 000027 002156 MOV ; : 
1953 017700 012737 022014 002160 MOV WHERFL, ERRMSG ; 
1954 017706 012737 020102 002162 MOV #ERRS ,ERRBLK : 
1955 017714 000261 SEC : 
1956 017716 000207 50$: RTS PC 
1957 
1958 
a 
1) 58 ATIN- ~~~ GLOBAL” SOBROOTIRE=- oe 
1963 Oe Sm cme mee ER OT ee Se RE ode NO CR ON OR Ee ee RD OE Oh So Sy Me Be A De WD SE GE SES GE ey OF SE EE SE TO EE EE Ee ST eT OSB eS ee eS ee 
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042777 
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000100 
002240 


162314 


INTIN 


INTIN:: 


L10002: 


H 5 
GLOBAL SUBROUTINE=-TR79 INTERRUPT HANDLER-~ 


SRRAAREAAARAAEREEEEA RARE AA AEAAAEREAEAREAAARERRERA RAE REHE 


:CLEAR TR79 INTERRUPT ENABLE BIT . 
:CLEAR TR79 INTERRUPT INDICATOR (INTFLG) * 


PITTLITIITITL ITIL t ili iit iii 


BGNSRV_ INTIN 


BIC #100,aTRCR Alero ‘give géd 
CLR INTFLG ;CLEAR THE FLAG 
NOP 

ENDSRV 

RTI 


ERRORS GLOBAL ERROR REPORTS 





' 2 


SEQ 60 

CZTRAC.P11 30=DEC-81 11:08 ERRORS GLOBAL ERROR REPORTS 

1983 

1984 SPITTTTATTATAAT AAAI 

1985 :/ THE GLOBAL ERROR REPORT SECTION CONTAINS ERROR MESSAGES 

1986 :/ ‘THAT ARE USED IN MORE THAN ONE TEST. 

1987 MMV 

1989 ; 

199% 

1992 "SBTTL ERROR HANDLER =-ERR1 <= "NO NOTHING’’ HANDLER 

1994 017736 BGNMSG ERR 

1995 017736 ERR1:: 

1996 017736 004737 020432 ER1: JSR PC ,NULERR sUSE COMMON ROUTINE TO TERMINATE ERROR MESSAGE 

1997 017742 ENDMSG 

1998 017742 L10003: 

1999 017742 104423 TRAP  C$MSG 








-SBTTL ERROR HANDLER --ERR2_ ~~ INSTALL WRITE ENABLE RING 


IF WRITE ENABLE RING IS PRESENT THEN EXIT 
ASK OPERATOR TO INSTALL RING 

WHILE RING NOT PRESENT KEEP CHECKING 
IF RING IS PRESENT THEN EXIT 


88 





017744 BGNMSG ERR2 

017744 ERR2:: 

017744 004737 013446 ER2: JSR PC, TESTC :MAKE SURE RING IS INSTALLED 
017750 000401 BR ERS “MAKE SURE ON LINE AND READY 
017752 ENDMSG 

017752 L 10004: 

017752 104423 TRAP  CSMSG 


"SBTTL ERROR HANDLER --ERR3 -- TR79 NOT ON LINE OR NOT READY 


2 i Ay ES Sey Tey Aes SESS 22S See eea see 2 PBSSBsBeeee 











BSSSSSssasooso sss sooooss 3 
SoS oRaRER USNS RENN SSocSSS SSS SesSESeS 


017754 BGNMSG ERR3 

017754 ERR3:: 

017754 ER3: 

017754 004737 014166 10$: JSR PC. TESTNN 

017760 103012 BCC 

017762 PRINTB #FMTTXT.#M2A1 

017762 012746 021140 MOV ~ 

017766 012746 020473 MOV #FMTTKT, (SP) 

017772 012746 000002 MOV #2,-(SP) 

017776 010600 MOV SPR 

020000 104414 TRAP  C$PNTB 

020002 0627 000006 ADD #6,SP 

020006 004737 013354 20$: JSR PC RWWAIT sWAIT A 
020012 004737 013324 JSR PC, CPWR *RESET tk ) 








ae _ 


A LL A 
a ee ee ee ee 





CZTRAC 


-P11 


30-DEC-81 11:08 


014114 


021040 
peones 


000002 


020432 


J § 


ERROR HANDLER =-ERR3 == TR79 NOT ON LINE OR NOT READY 


30$: 


L10005: 


; TEST READY 


JSR PC, TSTRDY ; TEST READY BITS 


BR INTB | HEM2A PRINT ERROR MESSAGE 
MOV M2A,=(SP) , 

MOV so WEMT TXT. = (SP) 

MOV 2,=(SP5 

MOV B’RO 


TRAP C$PNTB 


#6,SP 
or — ; CHECK FOR OPERATOR INTERRUPT 


;REPEAT TEST ON LINE AND READY 


PC ,NULERR ; TERMINATE ERROR MESSAGE 


TRAP CSMSG 


~SBTTL ERROR HANDLER <-ERR4-- PRINT COMMAND AND STATUS RESULTS 


SEQ 61 


- am et LL LLL LLL an -_ 





CZTRAC 


2101 


NAYRY 
RARAK 


-P11 


020116 
020116 


020120 


O12 708 
00473 
004737 


104423 - 


012702 
004737 
004737 


104423 


012702 
004737 
004737 


104423 


30-DEC-81 11:08 


000010 
020324 
020432 


000006 
020324 
020432 


K 5 


ERROR HANDLER =-ERR4-- PRINT COMMAND AND STATUS RESULTS 


ERR4:: 


L10006: 


ERRS:: 


L10007: 


ERR6G:: 


L10010: 


;PRINT TRCR AND TRSR RESULTS 


BGNMSG ERR4 

MOV #4 ,R2 ;SPECIFY REGISTER COUNT = 2 FOR PRINT 
JSR PC,PRTREG ;PRINT RESULT 

JSR PC ,NULERR ; TERMINATE ERROR MESSAGE 

ENDMSG 

TRAP C$MSG 


o wma Oe Oauwen ea Bw see aera wews]= & om Se Sh > he Oe Se ee ee ee ee ae ne ee jeeeeecewoeooeseoes 


.SBTTL ERROR | HANDLER e=ERRS== PRINT TR79 REGISTER RESULTS 


;PRINT TRCR,TRSR,TRWC,TRBA RESULTS 


BGNMSG ERRS 

MOV #10,R2 sSPECIFY REGISTER COUNT = 4 FOR PRINT 
JSR PC. PRTREG ‘PRINT RESULTS 

JSR f SNULERR S TERMINATE ERROR MESSAGE 

ENDMSG 

TRAP = CSMSG 








"SBTTL ERROR HANDLER --ERR6-- PRINT TR79 REGISTER RESULTS 


PRINT TRCR,TRSR,TRWC, RESULTS 


BGNMSG ERR6 

MOV #6,R2 SPECIFY REGISTER COUNT = 3 FOR PRINT 
JSR PC, auf ;PRINT 

JSR PCNULERR ; TERMINATE ERROR MESSAGE 

ENDMSG 

TRAP CSMSG 


“SBTTL ERROR HANDLER --ERR11-- FAILED TO LOAD VALUE INTO BUS ADDRESS _REGISTER 


—— eee 








A ————— 





CZTRAC.P11 


2 

21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 
21 


_ 
ooo 
™N 


~—ODONOVSWN—OV0® 


DOR a tt tt St 0 et es 


NMIMIN 
—_— A = 
MINIMA 
EWN 


MPUMINIAINMIMI ANON 
— tt ot = SS Ln +3) 





008 737 


012701 
004 
004 


104423 


737 
737 


30-DEC-81 11:08 


020346 


020432 


L § 
ERROR HANDLER =-ERR11=-~ FAILED TO LOAD VALUE INTO BUS ADDRESS REGISTER 
BGNMSG ERR11 


SEQ 63 


ERR11:: 

JSR PC.XHDR sPRINT EXPECTED RESULT HEADER 

MOVs WGI “SPECIFY BUS ADDRESSS REGISTER 

JSR so PCLXPRT “PRINT EXPECTED RESUL 

JSR PCZNULERR ‘USE COMMON ROUTINE TO TERMINATE ERROR MESSAGE 
L10011: 

TRAP —-CSMSG 

*SBITL ERROR HANDLER <-ERR12=- FAILED TO LOAD VALUE INTO WORD COUNT REGISTER 

BGNMSG ERR12 
ERR12:: 

JSR —s«PCXHDR :PRINT EXPECTED RESULT HEADER 

MOVs W4“RT “SPECIFY TRWC REGISTER 

JSR PCLXPRT “PRINT EXPECTED RESULT 

JSR PCZMULERR “USE COMMON ROUTINE TO TERMINATE ERROR MESSAGE 
10012: 

TRAP —sCSMSG 





one ee eee eee Ce 


Mm 5 


SEQ 64 

CZTRAC.P11 30-DEC-81 11:08 ERROR HANDLER =-ERR14__ DATA ERROR ON READ 

2134 020202 BGNMSG ERR14 

2135 020202 ERR14:: 

2136 020202 PRINTB #FMT31,LINPUT,AINPUT.EINPUT  ;PRINT INPUT AREA RESULT 

2137 020202 013746 002206 MOV EINPUT,=(SP) 

2138 020206 013746 002204 V AINPUT,=(SP) 

2139 020212 013746 002210 MOV LINPUT,=(SP) 

2140 020216 012744 020500 MOV #FMT31.=-(SP) 

2141 020222 012746 000004 MOV #4,-(SP 

2142 020226 010600 V SP,RO 

2143 020230 104414 TRAP  CS$PNTB 

2144 020232 062706 000012 ADD #12,SP 

2145 020236 004737 020432 JSR PC,NULERR s TERMINATE ERROR MESSAGE 

2146 020242 ENDMSG 

2147 020242 L10013: 

2148 020242 104423 TRAP  C$MSG 

$180 

313) "SBTTL ERROR HANDLER --ERR15-- ERROR ON READ IDB 


N 5 














SEQ 65 
CZTRAC.P11  30=DEC-81 11:08 ERROR HANDLER =-ERR15== ERROR ON READ IDB 
2153 020244 BGNMSG ERR15 
2154 020244 ERR15:: 
2155 020244 012702 000010 MOV #10,R2 :SPECIFY COUNT TO PRINT 4 REGISTERS 
2156 020250 004737 020324 JSR PC ,PRTREG ‘PRINT REGISTERS 
2157 020254 012737 006322 002210 MOV #INPUT,LINPUT SPECIFY INPUT LOCATION FOR PRINT 
2158 020262 PRINTB #FMT31 ‘TINPUT AINPUT T,EINPUT  ;PRINT INPUT AREA RESULT 
2159 020262 013746 002206 MOV EINPUT,=(SP) | 
2160 020266 013746 002204 MOV AINPUT,=(SP) | 
2161 020272 013746 002210 MOV LINPUT,=(SP) | 
2162 020276 012746 020500 MOV #FMT31.=(SP) | 
2163 020302 012746 000004 MOV #4 ,-(SP | 
2164 020306 0106 MOV SP-RO | 
2165 020310 104414 TRAP  C$PNTB 
2166 020312 062706 000012 ADD #i2,SP 
2167 020316 004737 020432 JSR PC,NULERR : COMMON ERROR MESSAGE TERMINATOR 
2168 020322 ENDMSG 
2169 020322 L10014: 
2170 020322 104423 TRAP — C$MSG 
2172 "SBTTL PRTREG SUBROUTINE TO PRINT SEVERAL REGISTER RESULTS 
2174 : 
2175 020324 PRTREG: sPRINT SEVERAL TR79 REGISTER RESULTS 
2176 020324 004737 020346 JSR PC, XHDR :PRINT RESULT HEADER 
2177 020330 005001 CLR CLEAR PRINT INDEX 
2178 020332 004737 020370 10$: JSR PC.XPRT INT T 
2179 020336 005721 TST (Ri)+ INCREMENT PRINT INDEX 
2180 020340 020201 C F MORE REGISTERS TO PRINT 
2181 020342 101373 I $ * THEN PRINT NEXT REGISTER 
2182 020344 0002 RTS PC 
si 
2185 /SBTTL XHDR SUBROUTINE TO PRINT RESULTS HEADER 
2187 ¥ 
2188 020346 XHDR: PRINTB #FMTS1 :PRINT RESULTS HEADER 
2189 020346 012746 020566 MOV #FMT51,-(SP) 
2190 020352 012746 000001 MOV #1,-(SP) 
2191 020356 010600 MOV SP,RO 
2192 020360 104414 TRAP SSENTB 
2193 020362 052706 000004 ADD #6,SP 
2194 020366 000207 RTS PC 
2195 
2196 
2197 
21 98 fF See nbs ee a Gm et Oe ee oe ee ee Pe a EES HSS SOE ODA TFTse ws eeweaee ce wegae wr wwe er eee Se] SS 
2199 "SBITL XPRT | SUBROUTINE TO FRINT ONE REGISTER RESULT 
2201 
2202 020370 XPRT: 
2203 020370 PRINTB #FMT52.TPT52(R1),TRCR(R1) .ETRCR(R1) ATRCR(R1) 
2204 020370 016146 002164 MOV ATRCR(R1) ,~(SP) 
2205 020374 016146 002174 MOV ETRCR(R1) .=(SP) 
2206 020400 016146 42 MOV TRCR(R1),-(SP) 
2207 02 016146 020454 MOV TPT Se (R15 = (SP) 
2208 020410 012746 020653 MOV #FMT52,-(SP) 





B 6 
Q 
CZTRAC.P11  30=DEC-81 11:08 XPRT | SUBROUTINE TO PRINT ONE REGISTER RESULT a 

2209 020414 012746 000005 MOV #5,-(SP) 
2210 020420 010600 MOV SP.RO 
2211 020422 104414 TRAP  CSPNTB 
2212 020424 062706 000014 ADD #14,SP 
2213 020430 000207 RTS PC 
$548 
2216 ‘ SBTTL SUBROUTINE TO PERFORM “PRINTB  #ENDEMB"’ 
5518 ee EE EEE EEeeeev_——_—O—w 
2219 020432 NULERR: NDEMB s TERMINATE ERROR MESSAGE 
2220 020464 MOV 


012746 
2221 020436 AE Ls 000001 
1 





00 
2223 0204644 104414 
2224 020446 062706 000004 
2225 020452 000207 
2227 *SBTTL FORMAT SPEC'S FOR ERROR HANDLERS -- FMT __ 





—— 


EE . 


ee 


C 6 


SEQ 67 
CZTRAC.P11 30-DEC-81 11:08 FORMAT SPEC'S FOR ERROR HANDLERS <= ‘‘FMT___"' 
2228 
2229 
2230 preter e ee eee eeesee== TEXT POINTERS USED IN FORMAT SPECS-------------------- 


2231 
$534 020454 020702 020717 020734 TPTS2: .WORD 152A,152B,152C,152D sPOINTERS TO REGISTER NAME TEXT 
SS 020462 020751 


2235 jee eeeweeneee- FORMAT SPEC'S USED BY ERROR HANDLERS -------------------------- 
2237 »NLIST BEX 
02 047045 000062 ENDEMB: .ASCIZ /2N2/ 
020470 047045 000 NEWLIN: .ASCIZ /3N/ 
020473 045 022516 000124 FMTTXT: .ASCIZ /2N2T/ 
020500 040445 0444 050116 FMT31: .ASCIZ /ZA_INPUT AT LOCATI Z06%7A IS %06%A EXPECTED %06/ 
020 047045 051445 022464 FMTS1: .ASCIZ /ENZS4ZAREGISTERZS4ZALOCAT IONZS4ZAEXPEC TEDZS4ZAACTUAL/ 
020653 045 022516 032123 FMTIS2: .ASCIZ /2N%S4%1%06%S6%062S6206/ 
020702 047503 046515 047101 T52A eASCIZ /COMMAND / 
020717 123 040524 052524 15 ASCIZ /STATUS / 
020734 047527 042122 041440 T5eC »ASCIZ /WORD COUNT / 
020751 102 051525 040440 152d -ASCIZ /BUS ADDRESS / 


-SBTTL ERROR MESSAGES 












CZTRAC.P11 30-DEC-81 11:08 ERROR MESSAGES 







020766 047516 020124 047117 EM2:  .AS 
021002 051127 052111 020105 EM4A: .AS 
31040 051124 034467 047040 EM2A: AS 
021057 120 040514 04250 2A “AS 
021140 047117 046040 047111 M2A1: .AS 
021156 051040 053505 047111 . oe a 
021174 042440 052130 047105 MI6SFL: .AS 
021235 040 054105 042524 MI6CFL: .AS 
021277 040 054105 25 4 “AS 
021337 040 054105 042524 “AS 
2524 051516 “AS 
520 04132@ “AS 
127 04610 “AS 
05 "AS 

1 04 


>>>>>>>>>>>>>>>>>>>>>p>>>>>>>>>>> >in >> 


z 
ReReee 


MARSFL: . 
MWPETFL:. 
MSRETFL: 
MRPETFL: 


023333 
623374 


AA AIAAA AM AAAIOAAOAOQAOAAQAQAOAAOEAOOAOAAOAOSOOAOAIHSHOAoIOoOaqnaaaqOoaaaOoaor 
ae ne feeg bee bag dene fare bee Pent fg fees thee feng tg fney ag feeg femee bond fone eee Bene Bane Beg feng femme tet eee thee beng Beng frees Pg hme Png bet Sms feet femme bee Pet eng bee Beng meg bee Boma mg mt bs bane bam 
Rea Re Ra Ra RS RR Ra Ri Ra RE RG Ri PR RG RRR BU RE RG RG RG PRE RG RG RRR NERY IRE RPP PG 


1 
2 

127 
123 040 
042522 042 


ERROR MESSAGES USED BY ERROR CALL’S 


~~ AS SS 


NG NOT PRESENT/ 
INE AFTER TAPE MOTION HAS STOPPED/ 


‘NOT FROM TEST REWIND AT LOAD POINT 
b TO SET/ 


S23 
—rT 
ay 
= 
z=rne 


— | | ea 
zw = 


—<  OK OE TH 
22S 


xmmnm@rn 2 





m 
«owe 


~ 
© 
=8 “+A 


R 900 MIILISEC/ 
WORD COUNT REGISTER/ 


Pa 
oS 
on 
SS 
— 


~~ 
r 
o 
~ 
oO 
oe 
z 
— 
: 
“~ 
~ 







é 
/RESET 
/WRITE 


READ / 
/SPACE REVERSE / 


/ REMOVE WRITE ENABLE RI 
/ INSERT WRITE ENABLE RI 
INTERRUPT ENABLE 
/INTE T DISABLE 
/POWE 


LOAD & PLACE ONLINE / 


NG 
NG LOAD & PLACE ONLINE/ 


see 
2 
2 

= 


LOAD POINT / 


mx 
—— 


wdagato} aes 8 
- gees 
re 
4 z=—mm pi 
4 38 
—r— 
se 
mm = 
es | 
S~ 
e 
o 
feet 
Pa 
— 
~ 





= Pit 
Zaoe 
= 
=] 


T MEMORY / 

EXISTENT MEMORY / 
XISTENT MEMORY / 
ON TAPE UNIT / 


F TAPE / 
T END OF TAPE / 
TAPE / 


SEQ 68 


eta LL LLL LLL 


CZTRAC.P11 


023771 





.SBTTL LOAD DEVICE PROTECTION TABLE 


30-DEC-81 11:08 ERROR MESSAGES 
Fae ? Q521 eASCIZ /WRITE END OF FILE PAST END OF TAPE 
25 $ 1 -ASCI WATT END OF FILE PAST END OF TAPE 
1 5 eASCIZ /WRITE EN 
050123 0415 Nobis /SPACE REVERSE au LOAD POINT / 
050123 0415 eASCIZ /SPACE REVERSE A , BLOCK / 
rel ttt 0421 eASCIZ /READ ID B ~~ 
053105 0471 eASCIZ /EVEN PARITY \ 
053105 0471 ~ASCIZ /EVEN PARITY SPACE REVERSE / 
042522 0421 eASCIZ /READ EVEN PARITY / 
122 0535 eASCIZ /REWINDING...GOING OFF LINE / 
BEX 
024026 . 


/ 


/ 


SEG 69 


—_———— 


rr ee ee —i—ae —_ 





F 6 
SEQ 70 


CZTRAC.P11 30-DEC-81 11:08 LOAD DEVICE PROTECTION TABLE 
2241 BU UUUUUUUUUUUUUUUOUUU UU 
2242 :/ THIS TABLE Loe sti THE LOAD a TO THE SUPERVISOR, SO THAT IT CAN BE 
2245 :/ PROTECTED FROM TESTING. IF DESIRED. 
$see SALTLLLLTTLLTT ATL AAT TTT LATTA 
2246 
2247 024026 BGNPROT 
2248 024026 LSPROT:: 
2249 024026 177777 «WORD =1 ;DON'T CHK CSR ADRS 
2250 024030 177777 «WORD =1 ;DON'T CHK VECTOR ADRS 
2251 024032 177777 .WORD  =1 ;DON'T CHK PRIOITY LEVEL 
$$2¢ 024034 ENDPROT 
2254 ~SBTTL INITIALIZE SECTION 


—_——————————————— _ 


CZTRAC. 


005737 
001003 
012737 


104411 


30-DEC-81 11:08 


002236 
002234 
002234 


156112 


INITIALIZE SECTION 













SIITIATAATATAA AAA AAA 
*/ THE INITIALIZE SECTION CONTAIN 
:/ AT THE BEGINNING OF THE TEST SEQ 
SAITIITIDLTTATATAAATAT AAT 
BGNINIT 
LSINIT:: 
MOV SP,PSTACK 
LOGDEV 
LOGDEV,R1 
LOGDEV,RO 
C$GPHRD 
RO,R1 
(Ri) +,R2 
V R2,TRCR 
(R2)+ 
V R2.TRSR 
(R2)¢ 
V R2, TRWC 
(R2)+ 
MOV R2, TRBA 
(R1i)+, TRVCT 
MOV (R1)+. TRPRT 
PRIO7- 
MOV PRIO7,RO 
TRAP i 
BIC #B1T6,aTRCR 
CLR NTFLG 
SETVEC TRVCT,#INTIN, TRPRT 
MOV T.=( 
MOV #INTIN, ~(SP) 
MOV CT, -( 
MOV (Sp) 
TRAP 
ADD 
TST 
BNE ENDIN 
ENDIN: ENDINIT 
L10016: 
TRAP  CSINIT 


-SBTTL AUTO DROP UNIT SECTION 


—_— — ee ee ae 


OUI 
INS THE ee THAT IS PERFORMED 


UEN THE NEXT UNIT. 
LLL 


E LEVEL STACK POIN 


AL DEVICE 
T P-TABLE POINTER 


A THE TR79 CSR ADDRESS 
Y rs ADDRESS 
STATUS REGISTER ADDRESS 
‘COPY. sf TUS REGISTER ADDRESS 
T TR79 WORD COUNT REGISTER ADDRESS 


REGISTER 


E BAS NTER 
GET ra75> ADDRESS. VECTOR, PRIORITY LEVEL 
:Set LOGIC NUMBER = 0 


VE ad ee oad 
“SAVE T DEVICE PRIORITY 


SET PRIORITY TO INHIBIT TR79 INTERRUPTS 


CLEAR TR79 INERRUPT ne BIT 


7CLEAR TR79 oe 
;SET UP TR79 VECTOR 


:1$ TESTS REPEAT COUNT 
3NO. EXIT INIT 

YES. SET REPEAT COUNT 
END OF “INIT’ CODE 


“ 
‘ 
A 








SEQ 71 


a ~———- 


_— 


a ee a eee eee a eee ee 


CZTRAC.P11 


B3es 


SESs 


WWANAAAG 
ke ed ed ed ed ed 


MPMNMM NNN NNT 
OVieWN—O& 


30-DEC-81 11:08 


02 
024200 104461 


024202 
024202 
024202 


024202 
024202 104412 


AUTO DROP UNIT SECTION 


BU UUUUUUUUUUUUUUUUUUUUUUUUUUCIUUUOUIUUUUUCUUUUUUUOUU 
sf THE AUTO DROP CODING DETERMINES WHETHER OR NOT THE DEVICE WHOSE P-TABLE 
S JUST OBTAINED IS READY FOR TESTING, AND IT IS DROPPED IF NOT READY. 
SLLTLATTTLLTTLAL ATTA TATA AAA ATT 
BGNAUTO 
LSAUTO:: 
“ENDAUTO 
L10017: 
TRAP CSAUTO 


-SBTTL CLEANUP CODING SECTION 
BMUCUCUCCULUCUCUIUCCUCUIUUUCUIIUIUUCCUIGUUIUCIUICE 
ANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 


:/ THE CLE 
:/ AT THE END OF THE TEST SEQUENCE ON A PARTIC UN 
SAIALUUITATATAT ATA AAT ATT 


BGNCLN 
LSCLEAN:: 


ENDCLN 
L10020: 
TRAP CSCLEAN 


~SBTTL TEST? NULL TEST 


SEQ 72 


CZTRAC .P11 


rs 


2338 


024204 
024204 
024204 
024204 
024204 


30-DEC-81 11:08 


104401 


TEST? NULL TEST 


MLLER LEELA SAREE LG ELS 
; TESTI THIS IS A Bry: TEST ENCE UE TO non tet THE TEST NUMBERING 

USED IN CZTRAB. MANUAL INTERVENTION TESTS ARE INCLUDED IN TEST6 
SALITITTTTTAATLATTT TATA AAA ATTA 


- BGNTST 
"" ENDTST 
L10021: 
TRAP _— CSETST 


~SBTTL TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 


SEG 753 


ee + 


CZTRAC.P11 


2353 
2354 


MIRIWMIN 
WAWAG 
MAW 
OOwoul 


wa 
Ww 


SSSSTERES 


33 


024326 


104460 


30-DEC-81 11:08 


000100 
013324 
014066 


000040 
013324 


04 
002174 


156026 


156006 


002176 
002164 


J 6 


a ea ee a ee ee — 


TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 


TEST2: 


T2I: 


10$: 


30S: 


35$: 


TEST2 INCLUDES: 


REWIND FROM LOAD POINT 
INSURE WRITE RI 
S EXTENSION BIT al 





E 
INTERRUPT BIT SE 


INTERRUPT BIT CLEAR TEST 
ILLEGAL 


TEST TR 
SPACE a enee AT LOAD POINT 
NXM TEST 





BUS ADDRESS BIT TEST 


BGNTST 





BIT TEST 





#B1T6,aTRCR 





Pe SESTN 
108 


CSERROR 
DPTS ,@TRSR 


CSERROR 
PC.TESTN 
BSS 


CSERROR 


ETRCR.ATRCR 
40$ 


PECL LLL OE TAAL UT 
; TEST CHECKS THE INTERFACE LOGIC WITH MINIMUM TAPE MOTION 


TEST NAME IN CZTRAB 


WORD COUNT TESTBA 
LLL 


NEGATE INTERRUPT ove 
;CLEAR TR? INTERRUPT ENABLE BIT 
;TEST REWIND AT Lo POINT 
sRESET TR 
; SURE TRANSPORT ON LINE AND READY 
3NO_ ERROR 
REPORT ERROR 
:0N LINE AND READY 


+1F re at POINT 
ee PREL IMINARY REWIND 














EREUIND 
CHECK REGISTERS 
: RROKS. 
REPORT ERROR 


zAT LOAD POINT 
; MAKE SURE TRANSPORT ON LINE AND READY 


ERROR 
SREPORT ERROR 


sREWIND AT oo 
sRESET 
REWIND LOAD POINT 
COPY TRIS REGISTERS 
s EXPECTED 
; EXPECTED 
— COMMAND REGISTER 





SEQ (4 


' 
} 


nn 


A 


CZTRAC.P11 


Ooh 3a0 


005202 
023737 


032777 
001404 
000031 
104457 
000031 
021002 
017744 


004737 
103001 


104460 
004737 
052777 
032777 
001004 
000032 
104457 
000032 
021174 
000000 
042777 
032777 
001404 
104457 
000032 
021235 
000000 
052777 
032777 
001004 


104457 


30-DEC-81 11:08 


002176 


000004 


014066 


020000 
020000 


002166 


155656 


K 6 


i  - 


TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 





INC R2 
40$: 
CMP a 
BEQ 0$ 
INC 
50$: 
TST Re 
BEQ 60$ 
ENUM = “D<ENUM + 1> 
ERRSOFT ENUM, MRWLPFL,ERR4 
TRAP CSERSOFT 
eWORD 26 
~WORD MRWLPFL 
-WORD ERR4 
60S: 
T2C: 
BIT #FPTS,@TRSR 
BEQ 10$ 
ENUM = “D<ENUM + 1> 
ERRSOFT ENUM,EM4A,ERR2 
TRAP CSERSOFT 
eWORD 2 
-WORD EMGA 
eWORD ERR2 
10$: 
JSR ef TESTN 
BCC 20$ 
ERROR 
TRAP CSERROR 
20S: 
T2D: 


JSR PC, CPWR 
BIS 10000.aTRCR 
BIT 10000, aTRCR 
BNE 1 
ENUM = “D<ENUM + 1> 
ERRSOFT ENUM, M16SFL 
TRAP SERSOFT 





- WORD 
-WORD MI6SFL 
WORD 0 






10$: 
BIC 10000, aTRCR 
BIT 10000. aTRCR 
BEQ 
ERRSOFT ENUM MIGCFL 
TRAP CSERSOF RSOF 
.WORD 26 
“WORD MI6CFL 
“WORD 0 

si BIS a JaTRCR 
Te ae 
ERRSOFT ENUM MI7SFL 
TRAP ERSOFT 


; INDICATE ERROR 

;CHECK STATUS REGISTER 
“ INDICATE ERROR 

;ANY ERRORS? 


‘INCREMENT ERROR NUMBER 
“REPORT ERROR 


CHECK FOR at Hh ENABLE RING 
:IF WRITE ENABLE RING IS PRESENT 
THEN CONTINUE 
Z INCREMENT ERROR 
; REPORT 






NUMBER 
ERROR. GET RING INSTALLED 


;RING “e PRESENT 
MAKE SURE ON LINE 


iS eent ERROR 


; TEST SET AND CLEAR UNIBUS EXTENSION BITS 


sRESET TR79 
7SET UNIBUS EXTENSION BIT 16 


ZTEST UNIBUS EXTENSION BIT 16 
7SKIP_IF OK 

Z INCREMENT ERROR NUMBER 
REPORT ERROR 







T 


UNIBUS EXTENSION BIT 17 
= EXTENSION BIT 17 


SEQ 75 


——— 


CZTRAC 
2465 


MmMNMNTY 
RRA ROR 


Nm 
i) 


-P11 


024674 


0093 

02127 

000000 
042777 
032777 
001404 
104457 
000032 
021337 
000000 
052777 
032777 
001004 
000033 
104457 
000033 
021174 
000000 
032777 
001004 
104457 
000033 
021277 
000000 


30-DEC-81 11:08 


020000 
020000 


030000 


010000 


020060 


030000 
030000 


000340 


000100 


470 
462 


—e" 
Www 
Www 


155442 


155340 


L 6 


TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 


30$: 


40$: 


BNE 
ENUM = “D<ENUM + 


50$: 


60$: 


70$: 
T2E: 


ENUM = 


20S: 
T2F: 


-WORD 26 

WORD MI7SFL 

-WORD 0 

BIC Ary 00,aTRCR 

So rt 00,aTRCR 

ERRSOFT ENUM,M17CFL 

TRAP CSERSOF T 

-WORD 26 

~WORD MI7CFL 

-WORD 0 

BIS #30000 ,aTRCR 

BIT #10000,aTRCR 
ro 


ERRSOFT CNUM, are 
TRAP CSERS 






WORD 
“WORD MI6SFL 

“WORD 0 

BIT #20000, aTRCR 
ERRSOFT ENUM.M17SFL 
TRAP CSERSOFT 

. WORD 

“WORD = M17SFL 

“WORD 0 


BIC : ,@TRCR 
aon o@TRCR 
ERRSOFT ENUM, MXCFL 
TRAP SERSOF T 

. WORD 
- WORD 
WORD 


MXCFi 
0 


SETPRI PRIO7 
MOV eaimet™™ 


T 
BIS #B1T6,aTRCR 
BIT tN aTRCR 


“D<ENUM + 


+ 1> 
ERRSOFT ENUM, MIENFL 
TRAP SERSOFT 


MIENFL 
0. 





. WORD 
. WORD 
WORD 


BIC #B1T6,aTRCR 


TEST CLEAR INTERRUPT 


;SET a He EA BITS 
BIT 


; TEST 

370K 

Fs ERROR NUMBER 
;REPORT ERROR 


:TEST SECOND BIT 
“REPORT ERROR 


TEST SET INTERRUPT ENABLE BIT 
;SET PRIORITY TO INHIBIT INTERRUPTS 


:SET INTERRUPT ENABLE BIT 
; CHECK IF SET 


‘INCREMENT ERROR NUMBER 
;REPORT FAILURE 


NABLE BIT 


E I 
;CLEAR INTERRUPT ENABLE 


SEQ 76 


ee 


= — 
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MIMIMININMINNNoKNNOT 
WMMAAV AIA 
— 


™N 
Ww 
Ww 
WG 


2534 


024702 
024710 


024712 


025020 
025024 
025026 


025050 
025052 
025060 
025066 


032777 
001404 
000035 
104457 
000035 
022204 
000000 
004737 
103001 
104460 
032777 


104460 
012737 
004737 
103001 
104460 
013703 


023727 
001351 


025052 
000406 
000022 
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000100 


014066 


000040 
013324 


012416 
013534 


025052 
014066 


025050 
002212 
025050 
013206 

3664 


025050 025066 


001012 001414 
000424 001030 


155332 


155304 


025050 
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TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 


ENUM = 


10S: 


208: 
30S: 


35$: 


ENUM = 


40$: 


50$: 
5$: 


60$: 


Ww 




















BIT i aTRCR CHECK IF CLEAR 
Q $ IF ZERO 
“D<ENUM “ INCREMENT ERROR NUMBER 
ERRSOFT * Nun MIDSFL “REPORT FAILURE 
iRAP SERSOFT 
WORD 
"WORD MIDSFL 
"WORD 0 
sTEST ILLEGAL COMMANDS 
JSR PC. TESTN :MAKE SURE TRANSPORT ON LINE 
BCC 10$ :ON LINE. NO ER 
ERROR “REPORT ERROR 
TRAP  CSERROR 
sREADY 
BIT #81TS,a@TRSR s1F AT LOAD POINT 
BNE 20$ : THEN Sk P REWIND 
JSR PC, CPWR “RESET TR79 
JSR C-RWIND cREUIND. 
JSR PC CHEK! “CHECK FOR ERROR 
acc 20$ : ; 
ERROR sREPORT ERROR 
TRAP  CSERROR 
:AT LOAD POINT 
MOV #55$,50$ ;POINT TO FIRST ILLEGAL FUNCTION 
JSR PC TESTN SURE TRANSPORT ON LINE 
BCC 4 *ON LINE. NO ERROR 
ERROR *REPORT ERROR 
TRAP  CSERROR 
:SELECT NEXT FUNCTION 
MOV 508 ,R3 :POINT TO NEXT ILLEGAL af UNCTION 
MOV (R3)+,USEA 7SPECIFY FUNCTION TO T 
MOV 508 [UPDATE POINTER 
JSR PC. DOILC S INITIATE OPERATION 
JSR PC. CHEKJ :CHECK RESULT 
BCC 4 > OK 
“D<ENUM + 1> : INCREMENT ERROR NUMBER 
ERRSOFT ENUM. MILFFL,ERRS [REPORT ERROR 
RAP cSERSOFT 
WORD 
“WORD MILFFL 
“WORD ERR4 
CMP sg5-4608 :1S THERE ANOTHER FUNCTION TO TRY 
BNE 30 :YES. GO T 
BR *NO. CONTINUE WITH NEXT SUBTEST 
.WORD #55$ NTER TO NEXT FUNCTION TO TRY 
“WORD 1LC03,1LCOS5,1LC06,1LC11, fiche. ILC14 :LIST OF ILLEGAL FUNCTIONS 


SEQ 77 





N 6 






SEQ 78 
CZTRAC.P11  30=DEC-81 11:08 TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 
2573 
2574 025066 TSTINT: — : TEST TR79 INTERRUPT 
2576 : THE FOLLOWING CODE TO TEST TR79 INTERRUPTS 1S INCLUDED FOR 
2577 : COMPLETENESS. THIS SECTION OPENS WITH A JUMP SO THAT, AS WRITTEN, 
$276 : THE INTERRUPT TEST IS NOT EXECUTED. 
2580 : TO EXECUTT THE INTERRUPT TEST, THE JUMP CAN BE CHANGED TO A NOP,NOP 
2381 : USING OD OR CONSOLE SWITCHES WHEN THE DIAGNOSTIC IS RUN. | 
5583 THIS APPROACH I$ ADOPTED TO ACCOMADATE THE FACT THAT TR79 GENERATED | 
2584 : INTERRUPTS ALLWAYS HUNG THE PROCESSOR DURING TESTING OF THIS DRS | 
2985 : COMPATIBLE VERSION OF THE DIAGNOSTIC. 
2587 : GLORIA MEREDI 
2588 : MERRIMACK ings ENGINEERING 
2589 : MAIL: 
2590 : OTN: 46 
2591 : ENET: VAX6: :MEREDITH 
338 
2594 025066 000137 025222 40$:  JMP TESTK “OMIT EXECUTION IF INTERRUPT TEST 
2595 :SET UP TO INTERRUPT ON ILLEGAL C 
2596 025072 004737 014066 JSR PC, TESTIN. TRANSPORT ON LINE 
2597 025076 103001 BCC 50$ *O0N LINE. NO ERROR 
2598 025100 ERROR “REPORT ERROR 
2599 025100 104460 TRAP  CSERROR 
2600 025102 50S: INTERRUPT AND PERFORM ILLEGAL FUNCTION 
2601 025102 012737 000406 002212 MOV #1LC03,U i SPECIFY ILLEGAL FUNCTION 
3602 025110 052737 000101 002212 BIS AINTENS! GORI. USEA TERRUPT ENABLE 60 
2603 025116 042777 000001 155120 BIC #B1TO,aTRSR aM IBIT TR79 GPERATION 
2604 025124 012777 177777 155114 MOV #~1,aT WORD COUNT . 
2605 025132 012777 006322 155110 MOV #INPUT @TRBA 
2606 025140 012737 177777 002240 MOV #=1. INTFLG pECTING: INTERRUPT’ 
2607 025146 SETPRI PRIO Oxi TY TO ALLOW TR79 INTERRUPTS 
2608 025146 013700 000140 MOV PRIO3,R0 
2609 025152 104441 TRAP = C$SPRI 
2610 025154 013777 002 155060 MOV USEA, aTRCR : INITIATE TR79 OPERATION 
2611 025162 004737 013354 JSR PC, WA 
2612 025166 004737 013254 JSR PC POYTRR ; COPY REGISTERS 
2613 025172 005737 002240 TST INTFLG TEST “INTERRUPT OCCURRED’’ INDICATOR 
2614 025176 001404 BEQ 60$ *0.k. INTERRUPT OCCURRED 
000037 ENUM = “D<ENUM + 1> : INCREMEN NT ERROR NUMBER 
2616 025200 ERRSOFT ENUM, MINTFL >REPORT- ERROR 
2617 025200 104457 CSER SOF 
2618 025202 37 .WORD 31 
2619 025204 021707 “WORD MINTFL 
2620 025206 “WORD 0 
2621 025210 60$:  SETPRI PRIO7 : INHIBIT TR79 INTERRUPTS 
2622 025210 013700 000340 V PRI07,RO 
2623 025214 104441 TRAP  C$SPRI 
2624 025216 004737 013324 JSR PC, CPW = TR79 POWER CLEAR 
2625 025222 TESTK: : TEST WRITE FROM LOAD POINT 
2626 025222 004737 014066 JSR PC, TESTN. :MAKE SURE TRANSPORT ON L!NE 
2627 025226 103001 CC 10$ :ON LINE. NO ERROR 
2628 025230 ERROR “REPORT ERROR 
a 
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2629 025230 104460 TRAP  CSERROR 
2630 025232 10$: 
2631 0 5232 032777 000040 155004 BIT 4B1T5 .TRSR F AT LOAD POINT 
2632 $240 001010 BNE 2 “THe Sk1P REWIND 
263 5242 004737 013324 JSR PC, CPWR 
2634 025 46 004737 012416 JSR PC -RWIND ND 
2635 025252 004737 013534 JSR PC CHEK :REWIN FOR ERROR 
2636 025256 103001 BCC 20$ ; 
2637 025260 ERROR “REPORT ERROR 
33 025260 104460 TRAP  CSERROR 
2639 025262 20$: :WRITE AT LOAD POINT 
0 029262 012737 177700 002214 MOV #-100,USEB ;SPECIFY WORD COUNT FOR WRITE 
1 025270 004737 012642 JSR : AT LOAD POI 
2642 025274 004737 013254 JSR PC CPYTRR 
2643 025300 012737 142602 002174 MOV wid 602 ETRCR 
2644 025306 012737 002040 002176 MOV #2040, ETRSR 
3645 025314 023737 002174 002164 CMP ETRCRATRCR 
2646 025 001401 BEQ $ 
2647 025324 005 INC | 
2648 025326 30S: | 
2649 025326 023737 002176 002166 CMP ETRSR,ATRSR sTEST STATUS REGISTER 
2650 025334 001401 SEQ 40$ : 0K 
2651 025336 005202 INC R2 * INDICATE ERROR 
2652 025340 40$: 
2653 025340 005702 TST R2 ZANY ERRORS? 
2654 025342 001404 BEQ 50$ 
2655 000040 ENUM = “D<ENUM + 1> sINCR REMENT ERROR NUMBER 
2656 025344 ERRSOFT ENUM, MWLPFL,ERRS sREPORT ERROR 
2657 025344 104457 TRAP SERSOFT 
2658 025346 000040 . WORD 
2659 025350 022362 “WORD MWLPFL 
2660 025352 020064 -WORD ERR4 
2661 025354 004737 013324 50$: JSR PC, CPWR TR79 POWER CLEAR 
2662 025360 | TESTM: sTEST WRITE EOF From LOAD POINT 
2663 025360 004737 014066 JSR PC TESTN SURE TRANSPORT ON LINE 
2664 025364 103001 BCC 10$ [ON LINE. NO ERROR 
2665 025366 ERROR *REPORT ERROR 
2666 025366 104460 TRAP CSERROR 
2667 025370 10S: :READY 
2668 025370 032777 000040 154646 BIT #B1TSATRSR 31F AT LOAD POINT 
2669 025376 001010 BNE 2 THEN Sk P REWIND 
2670 025400 004727 013324 JSR PC, CPWR RESET 
2671 025404 004737 912416 JSR PC -RWIND AL 
2672 025410 006737 013534 JSR BC CHEK! “CHECK FOR ERROR 
2673 025414 103001 BCC 2 ; 
2674 025416 ERROR ‘REPORT ERROR 
2675 025416 104460 TRAP § CSERROR " 
2676 025420 20S: :AT LOAD POINT 
2677 025420 004737 014066 JSR PC TESTN sMAKE SURE TRANSPORT ON LINE 
2678 025424 103001 BCC 30$ [ON LINE. NO ERROR 
2679 025426 ERROR “REPORT ERROR 
2680 025426 104460 TRAP  CSERROR 
2681 0254 30S: sWRITE EOF AT LOAD POINT 
2682 025430 004737 013072 JSR PC. WEOF sTRY TO WRITE EOF AT LOAD POINT 
2683 025434 004737 013254 JSR PC Ae YTRR :COPY TR ISTERS 
2684 025440 012737 143234 002174 MOV #1432 ETRCR 5% ‘SPECIFY EXPECTED RESULT 
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025446 


0 
025550 
025552 


012737 
023737 
001401 
005202 
023737 

401 
005202 


30-DEC-81 11:08 


002040 
002174 


002176 
002164 


002176 002166 


000026 
004000 
177300 


004000 


002224 
013362 
004000 


002000 
013254 


002200 
247 


002 
002174 


154516 


154510 


154472 


002220 
154440 


154422 
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TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 


MOV #2040, ,ETRSR 
CMP as »ATRCR 


40$: 
CMP a 


50$: 
TST 


BEQ 
ENUM = “D<ENUM + 1> 
ERRSOFT ENUM, MWELPFL,ERR4 
TRAP SERSOFT 


‘ MWELPFL 
! -WORD ERRG 
60S: 


126:  BRESET 
TRAP  C$RESET 
MOV #26,aTRCR 
BIS wort aTRCR 
MOV #~500,R1 


10$: 
R1 


BNE 10$ 

BIT T11,aTRCR 
BNE 

ENUM = “D<ENUM + 1> 

RRSOFT ENUM, MPWCL 

TRAP SERSOFT 


INC 























“WORD MPWCL 
“WORD 0 
208: 
#DLXPWR ,DLX 
WWA! 
1711 a TRCR 
ENUM = “D<ENUM + is 
ERRSOFT ENUM, MPWS 
TRAP CSERSOFT 
. WORD 
“WORD MPusT 
“WORD 
30$: 
BIT 1T10,aTRSR 
BEQ 
JSR PC CPYTRR 
BIC ATRCR 
MOV SETRCR 
MOV 47-ETRSR 


CMP ETRCR ,ATRCR 


seat ce tee ae T 
; TEST COMMAND REGISTER 


* OK 
INDICATE ERROR 

;TEST THE STATUS REGISTER 
INDICATE ERROR 

ZANY ERRORS? 


: INCREMENT ERROR NUMBER 
;REPORT ERROR 


; TEST TR79 RESET (TR79 POWER CLEAR) 
;PDP-11 RESET 





SET A Aa gl IN COMMAND REGISTER 
;THIS 1S A DUPMIY COMPMANT TO SEE IF 
IT ae CLEAR 
SET TR79 PWRCLR BIT 
[SET DELAY CONSTANT 


;COUNT A gd TICK 
:KEEP. TICKING 
POWER CLEAR BIT IS SET 








S INCREMENT ERROR NUMBER 
“ELSE REPORT ERROR.POWER CLEAR BIT 


:SET POWER CLEAR DELAY CONSTANT 
sTEST PWRCLR BIT 
S INCREMENT ERROR NUMBER 

PORT ERROR 





é 





SEQ 80 | 





CZTRAC P11 





104460 


001401 
005202 


023737 
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002176 
002166 


013324 
014066 


000040 
013324 


014066 


177777 


002176 


602172 


002200 


002166 


154304 


002166 


002170 
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TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 















BEQ 40$ :SKIP IF OK 
on INC R2 ‘INDICATE ERROR 
BIC ETRSR,ATRSR sCLEAR UNWANTED BITS 
TST ATRSR “TEST STATUS REGISTER 
BEQ “SKIP IF Ok 
— INC R2 s INDICATE ERROR 
Is! R sANY ERRORS? 
ENUM = “D<ENUM + 1> “INCREMENT ERROR NUMBER 
ERRSOFT ENUM,MPCFL,ERR4 “REPORT ERROR 
TRAP CSERSOFT 
.WORD 36 
“WORD MPCFL 
“WORD  ERR4 
60$: JSR PC, CPWR R79 POWER CLEAR 
T2AT: sTEST SPACE REVERSE AT LOAD POINT 
JSR PC TESTN SURE TRANSPORT ON LINE 
BCC 10$ [ON LINE. NO ERROR 
ERROR SREPORT ERROR 
TRAP  CSERROR 
10$: sREADY 
BIT #O1TS @TRSR :1F AT LOAD POINT 
BNE 20$ ‘SKIP REWIND 
JSR PC, CPWR *RESET T 
JSR PC ,RWIND *REWIND 
JSR PC CHEKI “CHECK FOR ERROR 
Bcc 20$ : OK 
ERROR *REPORT ERROR 
TRAP  CSERROR 
208: zAT LOAD POINT 
JSR PC, TESTN TRANSPORT ON LINE 
BCC 30$ “ON LINE. NO ERROR 
ERROR sREPORT ERROR 
TRAP  CSERROR 
30S: ;SPACE REVERSE AT LOAD POINT 
MOV #-1,USEB FY COUNT 
JSR  .PC,SPR i SPACE. REVERSE AT LOAD POINT 
JSR PC PYTRR :COPY TR79 REGISTERS 
MOV #143610. ETRCR «SPECIFY EXPECTED RESULT 
MOV #2060, ETRSR s EXPECTED RESULT 
MOV 4-1, ETRWC “EXPECTED 
COP ETRCRATRCR *TEST COMMAND REGISTER 
on INC R ‘INDICATE ERROR 
cmp ETRSR.ATRSR :TEST THE STATUS REGISTER 
- INC R ‘INDICATE ERROR 
TST ATRBA : TEST BUFFER ADDRESS 
BEQ 6s 30K 
- INC R ‘INDICATE ERROR 


CMP ETRWC ,ATRWC TEST THE WORD COUNT 


SEQ 81 


CZTRAC 


-P11 


12 


306 
026314 


001401 
005202 


005702 
001404 
000045 
104457 
000045 
023562 
020102 
004737 
004737 
103001 
104460 
032777 


30-DEC-81 11:08 


013524 
014066 


000040 


012416 
013534 


012464 
014254 


014066 


177400 
013140 
017546 


154106 


002214 


154014 
154004 
153776 
153772 


002220 


GF 
TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 
BEQ 4, 70K 
INC R : INDICATE ERROR 










70$: 
Ist R ;ANY ERRORS? 
ENUM = “D<ENUM + 1> “INCREMENT ERROR NUMBER 
ERRSOFT ENUM, MSRLPFL,ERRS “REPORT ERROR 
TRAP ERSOFT 
. WORD 
"WORD MSRLPFL 
“WORD 
80$: JSR PC, CPWR TR79 POWER CLEAR 
T2AB: STEST NXM ADDRESS TERROR USING TRCR BITS 12-13 
JSR PC, TESTN. *MAKE SURE TRANSPORT ON L 
BCC 10$ 7O0N LINE. NO ERROR 
ERROR SREPORT E 
- TRAP  CSERROR 
BIT T5,aTRSR s1F &T LOAD POINT 
BNE “SKIP REWIND 
JSR PC RWIND “REWIND 
JSR PC CHEKI “CHECK FOR ERROR 
BCC 15$ : 
ERROR *REPORT ERROR 
TRAP  CSERROR 
15$: sWRITE IDB 
JSR PC,WTIDB sWRITE IDB 
JSR PC. CHEKO ; CHECK TR79 REGISTERS 
BCC RRORS 
ERROR “REPORT ERROR 
ai TRAP § CSERROR 
JSR PC, TESTN :MAKE SURE TRANSPORT ON LINE 
BCC 30$ ‘ON LINE. NO ERROR 
ERROR [REPORT ERROR 
- RAP CSERROR 
30$: 2: ERASE 
MOV #~400,USEB :SET ERASE COUNT 
JSR PC,ERS ERASE 
JSR PC CHEKFX *CHECK REGISTERS 
BCC 4 ; 
ERROR “REPORT ERROR 
TRAP  CSERROR 
40S: sWRITE TO NXM ADDRESS 
BIC #BITO,aTRSR :CLEAR INHIBIT BIT 
MOV #URITE -aTPCR *SET COMMAND 
BIS #81T12'B1113,aTRCR *SET THE EXTENDED ADDRESS BITS 
CLR aTRw “CLEAR THE WORD COUNT 
MOV #160000, 3TRBA “SET UP AN 1/0 PAGE REFERENCE 
INC aTRCR :SET GO BIT 
MOV DLXRW,DLX “SPECIFY DELAY MULTIPLIER 
JSR PC ,WWAIT “WAIT 
- JSR PC PYTRR :COPY TR79 REGISTERS & CLEAR EXPECTED RESULTS 
MOV #13 602 ETRCR SEXPECTED 
MOV #6101, ETRSR “EXPECTED 
MOV #2,ET * EXPECTED 


CZTRAC. 


P11 


0265 
026510 


012737 
Oe 737 

1407 
005202 
023737 


033737 
001001 
005202 
023737 
001401 
005202 


005702 
001404 


104457 
000046 
023115 
020102 
004737 


104457 
000050 
021551 
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000001 
002174 


002176 


002202 


002200 


013324 
153622 
153616 


013254 
002202 


3560 
3554 


3254 
2200 


Sl aw 


iS thes 
002164 
002166 


002172 


002170 


me a ee ee —™ 


=: 
TEST2 CHECK CONTROL LOGIC WITH MINIMUM TAPE MOTION 







MOV ETRWC : EXPEC CTED 
CMP i ATRCR TEST COMMAND REGISTER 
- INC ‘INDICATE ERROR 
cup ETRSR.ATRSR TEST THE STATUS REGISTER 
om INC INDICATE ERROR 
"BIT ETRBA,ATRBA s TEST BUFFER ADDRESS 
BNE 0$ 30K 
- INC ‘INDICATE ERROR 
"MP ETRWCATRUC sTEST THE WORD COUNT 
BEQ 0$ 30K 
_ INC ‘INDICATE ERROR 
; Ist R :ANY ERRORS? 
ENUM = “D<ENUM + 1> SINCREMENT ERROR NUMBER 
ERRSOFT ENUM. MNXMFL,ERRS SREPORT ERROR 
TRAP SERSOFT 
. WORD 
WORD 
WORD 
90$: 
TR79 
:TEST THE BUS animes Bits BY USING A COUNT PATTERN 
T2AU: COUNT 
10$: See BUS ADDRESS 


:TEST SUS ADDRESS 


COPY TR79 REGISTERS.CLEAR EXPECTED RESULTS 
R1,ETRBA ;EXPECTED 








MOV 
ENUM = “D<ENUM + 








1> ‘INCREMENT ERROR NUMBER 
ERRSOFT ENUM, EM6.ERR11 *REPORT ERROR 
RAP RSOFT 
WORD 
“WORD EM6 
om “WORD ERR11 
INC R1 s INCREMENT COUNT 
BNE 10$ > CONT INUE 
T2BA: ;TEST THE BITS IN THE WORD COUNT USING A COUNT PATTERN 
CLR R :CLEAR COUNT 
10$: MOV R1,aTRwWC >SET WORD COUNT 
CAP R "aTRwc sTEST WORD COUNT 
JSR PC, CPYTRR 
MOV 1° ETRWC 
ENUM = “D<ENUM + 





+ 15 
ERRSOFT ENUM, EM7,ERR12 
CSERSOFT 


WORD EM? 


SEQ 83 


e F 
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2909 026512 020160 WORD ERR12 
2910 026514 20$: 
2911 026514 005201 INC R1 ; INCREMENT COUNT 
2912 026516 001361 BNE 10$ ; CONT INUE 
2913 026520 ENDTST 
2914 026520 L10022: 
sor? 026520 104401 TRAP CSETST 
2917 .SBTTL TESTS CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 





CZTRAC.P11 


026522 


042777 
004737 
032777 
001404 


104457 
000051 
021002 
017744 


004737 
103001 


104460 


032777 
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000100 
013324 


000004 


014066 


000040 
013324 


153512 


153502 


153452 
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TESTS CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 


BU 
; TESTS CHECKS IDB AND EOF 
CHECKS COUNT AND PARITY ERROR DETECTION 


TESTS INCLUDES: TEST NAME IN CZTRAG 







: INSURE WRITE ENABLE RING TESTC 
: REWIND THE TAPE TESTI 
: WRITE ID C TESTO 
: ILLEGAL ID BLOCK TEST TESTH 
; SPACE REVERSE OVER ID BLOCK TESTAV 
; READ ID BLOCK TESTAW 
: WRITE EOF MARKS RUNL 

; SPACE REVERSE OVER EOF MARKS RUNU 

: READ EOF MARKS RUNV 

: TI TEST TESTW 
: READ WITH COUNT LONG TESTAC 
: READ WITH COUNT eed TESTAD 
: SPACE REVERSE WITH COUNT SHORT TESTAE 
; SPACE REVERSE WITH COUNT LONG TESTAF 
: WRITE 44 VEN ESTAX 
; SPACE REVERSE OVER EVEN PARITY TESTAY 
: PARITY ST 


READ EV TESTAZ 
STTITTATTTATTAAT ATTA ATTA TATA TATA TT 





















- BGNTST 
BIC #BIT6,aTRCR : CLEAR TR79 INTERRUPT ENABLE BIT 
JSR PCC TR 

T3C: : CHECK Fon WRITE ENABLE RING 
BIT #FPTS ,aTRSR F WRITE ENABLE RING IS PRESENT 
BEQ 10$ ; CONT INUE 

ENUM = “D<ENUM + 1> ERROR NUMBER 
ERRSOFT ENUM, EM4A,ERR2 “REPORT ERROR. GET RING INSTALLED 
RAP (CSERSOFT 
WORD 
“WORD EMGA 
“WORD ERR2 

10$: :RING IS PRESENT 
JSR BC ,TESTN :MAKE SURE TRANSPORT ON LINE AND READY 
BCC 2 *NO ERROR 
ERROR “REPORT ERROR 

_ TRAP  CSERROR 

130: -TEST WRITE IDB AT LOAD POINT 
BIT #LDPTS,aTRSR :1F 7A Load POINT 
BNE N SKIP PRELIMINARY REWIND 
JSR PC, CPWR ‘RESET T 
JSR PC -RWIND REW! 
JSR PC CHEKI :CHECK REGISTERS 
BCC 30$ *OK.NO ERRORS. TAPE AT ‘OAD POINT 
ERROR ‘REPORT ERROR 


SEQ 85 


LE 
ee ee 


CZTRAC 


P11 


104460 


104460 


023737 
001401 
005202 


005702 
001404 
000052 


104457 
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014066 


014066 


014066 


012464 
013254 
142632 
002000 
002174 


002176 


002214 


002214 


002174 
002176 
002164 


002166 


TESTS 


30$: 


10$: 


20S: 


40S: 
T3H: 


10S: 


30S: 


40$: 


50$: 


60$: 


ENUM = 


CHECK IDB AND EOF 


TRAP 


CMP 
BE 
INC 


TST 


BEQ 
“D<ENUM + 
7) alll ENUM 





, # 


CSERROR 
sAT LOAD POINT 
Pc TESTN 
10$ NO 
‘REPORT ERROR 
CSERROR 
;WRITE IDB 
PC,WTIDB sWRITE IDB 
PC CHEKO “CHECK REGISTERS 
20$ : OK 
*REPORT ERROR 
CSERROR 
; ERASE 
#400, USE ;SPECIFY ERASE COUNT 
BC CHEKFX *CHECK REGISTERS 
40$ 70K 
*REPORT ERROR 
CSERROR 
:TEST WRITE IDB BEYOND LOAD POINT 
pC .TESTN' :MAKE SURE 
“REPORT ERROR 
CSERROR 
WRITE 
#~100,USEB 
PC, WRT WRITE 
pC CHEKCK *CHECK TR79 REGISTERS 
“REPORT ERROR 
CSERROR 
pC .TESTIN 
4 [NO ERROR 
*REPORT ERROR 
CSERROR 
Fc aii ;WRITE IDB BEYOND LOAD POINT 
e PYTRR *COPY TR79 REGISTERS 
ai 32,ETRCR SEXPECTED 
TRSR TEXPECTED 
ETRCR.ATRCR : CHECK COMMAND REGISTER 
S INDICATE ERROR 
ETRSR.ATRSR :CHECK STATUS REGISTER 
R ‘INDICATE ERROR 
R ;ANY ERRORS? 


tory te oERR4 







OPERATIONS,COUNT AND PARITY ERRORS 


;MAKE SURE TRANSPORT ON LINE AND READY 











SPECIFY WORD COUNT FOR WRITE 


:MAKE SURE TRANSPORT ON LINE AND READY 












: INCREMENT UP ae COUNT 


REPORT 


TRANSPORT ON LINE AND READY 


SEQ 86 — 





CZTRAC. 


3030 
3031 
3032 
3033 


P11 


027172 


000078 
02224 

020064 
004737 


004737 
103001 


104460 
032777 
006 


104460 


013737 


104460 


30-DEC-81 11:08 


013324 
014066 


000040 


012416 
013534 


014066 


012464 
014254 


177777 
0 

016122 
014066 


000040 


012416 
013534 


014066 


153212 


002214 
002220 


153076 


TESTS 


70$: 
T3AV: 


10$: 


20S: 


30$: 


40$: 


50S: 
T3AW: 


10$: 


20$: 


J 7 
CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 


42 
RD MWIPLFL 


JSR PC, CPWR TR79 POWER CLEAR 


sTEST SPACE REVERSE OVER 1DB 










sh PC .TESTN' ;MAKE SURE TRANSPORT ON LINE AND READY 
ERROR side “REPORT ERROR 
—. ON LINE AND READ 
BIT #LDPTS,aTRSR sIF AT NOAD POINT 
BNE 20$ * THEN SKIP PRELIMINARY REWIND 
JSR PC ,RWIND “REWIND 
JSR PC CHEK! ‘CHECK REGISTERS 
BCC 20$ 70K. . TAPE AT LOAD POINT 
ERROR “REPORT ERROR 
TRAP  CSERROR 

:AT LOAD POINT 
SR pC TESTI MAKE SURE TRANSPORT ON LINE AND READY 
ERROR “REPORT ERROR 
TRAP  CSERROR 

sWRITE IDB 
JSR PC,WTIDB :WRITE 1DB 
JSR pC ,CHEKO : CHECK REGISTERS 
ERROR salad “REPORT ERROR 

:SPACE REVERSE OVER IDB 
MOV #~1,USEB sSPECIFY WORD COUNT 
JSR PC, SPR *SPACE REVE 
MOV DLXRW, DLX ‘SPECIFY DELAU MULTIPLIER 
JSR PC ,WWwAIT WA 
JSR BC, CHEKAV : CHECK REGISTERS 
ERROR “REPORT ERROR 
TRAP § CSERROR 

:TEST READ IDB 

Js PC TESTI :MAKE SURE TRANSPORT ON LINE AND READY 
FRAP’ CSERROR = 

:0N LINE AND READY 
BIT sLDPTS ,aTRSR :IF AT LOAD POINT 
BNE $ * THEN SKIP PRELIMINARY REWIND 
JSR PC ,RWIND “REWIND 
JSR PC. CHEKI [CHECK REGISTERS 
BCC 20$ *OK.NO ERRORS. TAPE AT LOAD POINT 
ERROR “REPORT ERROR 
TRAP = CSERROR 

sAT LOAD POINT 
JSR PC, TESTN :MAKE SUPE TRANSPORT ON LINE AND READY 
BCC 30$ “NO ERROR 
ERROR “REPORT ERROR 
TRAP  CSERROR 


SEQ 87 





CZTRAC 


Ww 


eee ee ed ed ed dd od od os) I) ow 


LAIN ANAL A AO AIA AANA AAA ON OANAIAW 
TSSBNKAEANVLSVSVEGRAVLSSHVRARWOIS 


ewe ee we el ee cee eR ree cee cet cee ed ee eed eed eed ed 


WNIAANAA 


-P11 


027174 


005037 
012737 
004737 
004737 
103001 
104460 


004737 
004737 
103001 
104460 
032777 

006 


104460 


30-DEC-81 11:08 


000040 


012416 
0135534 


014066 


012464 
014254 


177400 
013140 
017546 


014066 


002214 


153000 


002214 


TEST3 
30$: 


40$: 
T3L: 


10$: 


208: 


30$: 


40$: 


50$: 


60>: 
T3U: 


10$: 





K 7 


SEQ 88 


CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 

















:READ IDB 
INPUT :CLEAR INPUT WORD 
#-1,USEB i SPECIFY COUNT FOR READ 
PC’ CHEKAW ‘CHECK REGISTERS 
40$ :0k 
“REPOAT ERROR 
CSERROR 
;TEST WRITE EOF (TAPE MARK) 
PC, CPWR sRESET TR79 
pC TESTI ima MAKE SURE TRANSPORT ON LINE AND READY 
“REPORT ERROR 
CSERROR 
sO0N LINE AND READY 
#LDPTS.aTRSR s1F AT LOAD POINT 
asain ; THEN SKIP PRELIMINARY REWIND 
PC CHEK! ‘CHECK REGISTERS 
20$ *0K.NO ERRORS. TAPE AT LOAD POINT 
“REPORT ERROR 
CSERROR 
:AT LOAD POINT 
PC TESTN sMAKE SURE TRANSPORT ON LINE AND READY 
30$ ‘NO ERROR 
[REPORT ERROR 
CSERROR 
:WRITE IDB 
PC,WTIDB ZWRITE 108 
PC, CHEKO SCHECK REGISTERS 
40$ : OK 
“REPORT ERROR 
CSERROR 
s ERASE 
#400, USEB :SPECIFY ERASE COUNT 
BC CHEKFX [CHECK REGISTERS 
*REPORT ERROR 
CSERROR 
:WRITE EOF (TAPE MARK) 
PC ,WIEOF $ OF 
PC CHEKL :CHECK REGISTERS 
60$ 0K 
“REPORT ERROR 
CSERROR 
: TEST SPACE REVERSE OVER EOF 
PC TESTN sMAKE SURE TRANSPORT ON LINE AND READY 
10$ [NO ERROR 
“REPORT ERROR 
CSERROR 
USEB :SPECIFY COUNT 


PC,SPR :SPACE REVERSE 


LL OL 
ee ee 8 ee 
eel 


——<_—_—_<_ 





CZTRAC.P11 


3185 


WALANLAILAIAI AAAI AI AIA 


ead a ed Hd ab ad -s — —4 — 2 - 
CSSLESLSBELE 


C 
027552 


004737 
103001 
104460 


104460 


104460 


104460 
013702 

001 
042777 


005077 
012777 


30-DEC-81 11:08 


014506 


014066 


013324 
014066 


000040 


012416 
013534 


014066 


012464 
014254 


002232 
000001 
152474 
002262 


152576 


002214 


152476 
152470 


TESTS 


3: 


10$: 


20S: 
T3W: 


10$: 


20S: 


30$: 


40$: 


50$: 


. #7 


CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 


JSR 


BCC 
ERROR 
TRAP 




















BC , CHEKU i CHECK REGISTERS 
‘REPORT ERROR 
CSERROR 
: TEST READ EOF 
PC .TESTN MAKE SURE TRANSPORT ON LINE AND READY 
“REPORT ERROR 
CSERROR 
USEB :SPECIFY COUNT FOR READ 
PC,RD “READ 
PC CHEKV sCHECK REGISTERS 
2 4 0K 
“REPORT ERROR 
CSERROR 
:TEST TIMEOUT WHILE WRIT! 
PC, sRESET TR7 
PC TESTN “MAKE SURE TRANSPORT ON LINE AND READY 
10$ =NO ERROR 
“REPORT ERROR 
CSERROR 
:0N LINE AND READY 
sLDPTS. ,aTRSR :1F AT LOAD POINT 
: THEN SKIP PRELIMINARY REWIND 
PC ,RWIND sREWIND 
PC, CHEKI “CHECK REGISTERS 
208 70K.NO ERRORS. TAPE AT LOAD POINT 
-SREPORT ERROR 
CSERROR 
z;AT LOAD POINT 
pe .TESTN :MAKE SURE TRANSPORT ON LINE AND READY 
[NO ERROR 
“REPORT ERROR 
CSERROR 
:WRITE IDB 
PC,WIIDB : 
PC .CHEKO *CHECK REGISTERS 
4 70K 
sREPORT ERROR 
CSERROR 
s ERASE 
4-400 USEB :SPECIFY ERASE COUNT 
BC CHEKF *CHECK REGISTERS 
“REPORT ERROR 
CSERROR 
sFORCE WRITE FOR LONGER THAN 1.5 SEC 
DLXLNG,R2 sSPECIFY DELAY MULTIPLIER 
= SPECIFY DELAY CONSTANT 
#B1TO,aTRSR “CLEAR TR79 INHIBIT BIT 
TRW *SPECIFY MAXIMUM 
#OUTPUT,,aTRBA “SPECIFY BUS ADDR 


SEQ 89 


—— 


ee ee ee ee 


CZTRAC.P11 


ab ad ad od ed od ed eed ed 
DWONAVSWN—O 


SS 


KKK 
WN 


6 
027776 


012777 
052777 


weaty Stee 


Rt at od 
WWINININS 


001401 
005202 


3 
022751 


004737 


104460 


30-DEC-81 11:08 


000402 
000001 


152446 
002262 


002170 


000040 


012416 
013534 


152454 
152446 


152442 


002174 


002164 


002166 
002166 


002172 


152262 


TESTS 


60S: 


70$: 


80$: 


90$: 


100$: 


ENUM = 


110$: 


T3AC: 


ee ee ee ee ee ee ee ee eee oe iF 


mh 7 


CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 


MOV #WRITE,@TRCR s SPECIFY WRITE OPERATION 
BIS WBITO,aTRCR “SET TR79 GO BIT 
CLR aTRwCe ;RESET COUNT 
MOV #OUTPUT,aTRBA RESET BUS ADDRESS 
INC R1 “COUNT A TICK 
BNE 60$ * KEEP TICKING 
DEC Re i COUNT DOWN MULTIPLIER 
BNE 60$ “KEEP TICKING 
JSR PC CPYTAR “COPY TR79 REGISTERS 
MOV #102602, ETRCR SEXPECTED 
MOV 2401, ETRSR S EXPECTED 
MOV #OUTPUT ETRBA S EXPECTED 
CMP ATRC “CHECK COMMAND REGISTER 
BEQ * OK 
INC ‘INDICATE ERROR 
BIC #170000, ATRSR sCLEAR UNWANTED BITS 
CMP ETRSR,ATRSR “CHECK STATUS 
BEQ 80$ * OK 
INC * INDICATE ERROR 
CMP ETRBA-ATREA :CHECK BUS ADDRESS 
BEQ $ : 0K 
INC * INDICATE ERROR 
TST ATRWC :CHECK COUNT 
BEQ 100$ ; 
INC * INDICATE ERROR 
Kal ; ANY ERRORS? 
“D<ENUM + 1> * INCREMENT ERROR COUNT 
ERRSOFT ENUM, MWTOFL,ERRS “REPORT ERROR 
TRAP CSERSOF T 
. WORD 
“WORD RNTOFL 
-WORD ERR 
JSR PC, CPWR :RESET TR79 
;TEST READ COUNT ERROR. COUNT TOO LARGE 
JSR PC, CPWR T TR 
JSR PC. TESTN MAKE SURE TRANSPORT ON LINE AND READY 
BCC 10$ RROR 
ERROR “REPORT ERROR 
TRAP  CSERROR 
:0N LINE AND READY 
BIT #LDPTS,a@TRSR :IF AT LOAD POINT 
BNE 20$ THEN SKIP PRELIMINARY REWIND 
JSR PC RWIND wl 
JSR PC CHEK! “CHECK REGISTERS 
Bcc 20$ “OK.NO ERRORS. TAPE AT LOAD POINT 
ERROR “REPORT ERROR 
TRAP  CSERROR 





SEQ 90 


CZTRAC 


-P11 


_ 
NOM) a 


004737 
103001 


104460 
004737 
004737 
103001 
104460 
004737 
103001 
104460 
012737 

737 


012737 
004737 
004737 
103001 


104460 


104460 
012737 
004737 


004737 
103001 


30-DEC-81 11:08 


014066 


014066 


177400 
013140 
017546 


014066 


014066 


014066 


002214 


002214 


002214 


TESTS 
20$: 


30$: 


40$: 


45$: 


50$: 


55$: 


60$: 


70$: 


 75$: 


80S: 


85$: 


CHECK IDB AND EOF 


ae 


CSERROR 
PC,WTIDB 
PC’ CHEKO 
40$ 
CSERROR 


PC, TESTN 
45$ 


CSERROR 
PC,ER 
PC, CHEKFX 


50$ 
CSERROR 


PC, TESTN 
55$ 


CSERROR 
#-100,,USEB 
PC WR 
— 
CSERROR 
ee 


CSERROR 


PC. SPR 
PC. CHEKEX 


80$ 
CSERROR 
—"* 


CSERROR 
#~-77 ,USEB 


PC’ CHEKAC 
90$ 


N 7 


OPERATIONS,COUNT AND PARITY ERRORS 


;AT LOAD POINT 
sMAKE SURE TRANSPORT ON LINE AND READY 


“REPORT ERROR 
:WRITE IDB 

;WRITE IDB 

: CHECK REGISTERS 

“REPORT ERROR 


; ERASE 
s;MAKE SURE TRANSPORT ON LINE AND READY 


3;NO_ERROR 
;REPORT ERROR 


sSPECIFY ERASE COUNT 
* ERAS 

i CHECK REGISTERS 
“REPORT ERROR 


WRITE 
;MAKE SURE TRANSPORT ON LINE AND READY 


“REPORT ERROR 


:SPECIFY COUNT FOR WRITE 
: CHECK REGISTERS 
“REPORT ERROR 


SPACE REVERSE 
MAKE SURE TRANSPORT ON LINE AND READY 


s RROR 
“REPORT ERROR 
:SPACE REVERSE 

: CHECK REGISTERS 
“REPORT ERROR 


;READ WITH LONG COUNT 
;MAKE SURE TRANSPORT ON LINE AND READY 


: RROR 

sREPORT ERROR 

sSPECIFY COUNT 
READ 

’ _— REGISTERS 


SEQ 91 


i 
ee 
ane 
fe er Se i TS SE CT 


eas 30-DEC-81 11:08 


3320 


—_— 
WONAOULSWW oO 


030164 
030164 
030166 


104460 


004737 
004737 
103001 
104460 
032777 

006 


104460 
012737 
004737 
004737 
103001 
104460 


004737 
103001 


104460 
012737 


014066 


012464 
014254 


014066 


014066 


152034 


002214 


002214 


TESTS 


90S: 


T3AD: 


10$: 


20$: 


30$: 


40$: 


45$: 


50$: 


55$: 


60$: 


70$: 


CHECK IDB AND EOF OPERATIONS,COUNT AnD PARITY ERRORS 


CSERROR 


<0 
108 
CSERROR 
| lade ,@TRSR 
Pe “CHEK! 
508 

CSERROR 
hia 


CSERROR 
PC ,WTIDB 
KO 


oF 


CSERROR 
PC, TESTN 
Ay} 


CSERROR 


CSERROR 
PC,TESTN 
ay 


CSERROR 
#~-100,USEB 
PC. CHEKCX 
ay 


CSERROR 


;REPORT ERROR 


; TEST READ COUNT Aeeey” rhe TOO SMALL 


‘MAKE "SURE TRANSPORT ON LINE AND READY 
“REPORT ERROR 
;0N LINE AND READY 
;1F AT LOAD POINT 
Ms SKIP PRELIMINARY REWIND 
SCHECK REGISTERS 
30K. RRORS. TAPE AT LOAD POINT 
;REPORT ERROR 


sAT LOAD POINT 
MAKE SURE TRANSPORT ON LINE AND READY 


SREPORT ERROR 








r' 
4 








WRITE IDB 


;WRITE IDB 
: CHECK REGISTERS 
*REPORT ERROR 














MAKE SURE TRANSPORT ON LINE AND READY 
:NO_ERROR 
sREPORT ERROR 


sSPECIFY ERASE COUNT 
ERASE 

: CHECK REGISTERS 
“REPORT ERROR 


sWRITE 


:MAKE SURE TRANSPORT ON LINE AND READY 
REPORT. ERROR 


sSPECIFY COUNT FOR WRITE 
: CHECK REGISTERS 
“REPORT ERROR 





;SPACE REVERSE 


CZTRAC. 


Sa 


hk ed ek ek eh ed nd ed aed 
WOONAUSWN © 


eeecessesces 


™Nm 
~ 


P11 


004737 
103001 


104460 
004737 
004737 
103001 
104460 


004737 
103001 


104460 
012737 
7 


30-DEC-81 11:08 


014066 


014066 


013324 
014066 


000040 


012416 
013534 


014066 


014066 


002214 


151606 


TESTS 


75$: 


80$: 


85$: 


90$: 


T3AE: 


10$: 


20$: 


30$: 


40$: 


Cc 8 


CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 


ERROR 
AP 


JSR. PC,TESTN 
aT 


s;MAKE SURE TRANSPORT ON LINE AND READY 
;NO_ERROR 
;REPORT ERROR 


CSERROR 
PC,SPR :SPACE REVERSE 
eS CHEKEX : CHECK REGISTERS 
80$ :0K 
sREPORT ERROR 
CSERROR 
sREAD WITH SHORT COUNT 
ie ae SUKE TRANSPORT ON LINE AND READY 
sREPORT ERROR 
CSERROR 
#-101,USEB :SPECIFY COUNT 
PC,RD sREAD 
a3 CHEKAD : CHECK REGISTERS 
$ 70K 
zREPORT ERROR 
CSERROR 


: TEST SPACE REVERSE COUNT EAAOR.. SHORT COUNT 
sRESET TR 


PC, 
PC. TESTN “MAKE SURE TRANSPORT ON LINE AND READY 
10$ 7NO ERROR 
sREPORT ERROR 
CSERROR 


70N LINE AND READY 











SLSPTS .OTRER :1F AT LOAD POINT 
2 ; THEN SKIP PRELIMINARY REWIND 
PC .RWIND sREWIND 
—_— : CHECK REGISTERS 
20K. RRORS. TAPE AT LOAD POINT 
:REPORT ERROR 
CSERROR 
zAT LOAD POINT 
eegrestn sMAKE SURE TRANSPORT ON LINE AND READY 
5 RROR 
sREPORT ERROR 
CSERROR 
sWRITE IDB 
PC ,WTIDB sWRITE IDB 
—_—~ sCMECK REGISTERS 
sREPORT ERROR 
CSERROR ERASE 
A" TESTN MAKE SURE TRANSPORT ON LINE AND READY 
45$ :NO ERROR 
sREPORT ERROR 
CSERROR 





SEQ 93 




















SEQ 94 

CZTRAC.P11  30=DEC-81 11:08 TEST3 CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 
3422 030510 45$: 
3428 930510 012737 177400 002214 MOV 4-400 USE ;SPECIFY ERASE COUNT 
3425 030 e2 004737 017546 JSR pC CHEKF X “CHECK REGISTERS 
3426 030526 103001 BCC 50$ : 
3427 030530 ERROR “REPORT ERROR 
3428 030530 104460 = TRAP  CSERROR ii 

030532 004737 014066 JSR PC TESTN sMAKE SURE TRANSPORT ON LINE AND READY 
3431 030536 103001 BCC 55$ ; 
3432 030540 ERROR “REPORT ERROR 
3435 030540 104460 - TRAP  CSERROR 
3435 030542 012737 177700 002214 NOV #-100,USEB sSPECIFY COUNT FOR WRITE 
3437 030554 004737 017156 60$: JSR PC CHEKCX SCHECK REGISTERS 
3438 030560 103001 BCC 70$ + OK 
320 tees 104460 | CRAP CSERROR — 
3441 030564 708: sSPACE REVERSE WITH SHORT COUNT 
3442 030564 904737 014066 JSR PC TESTN sMAKE SURE TRANSPORT ON LINE AND READY 
3443 030570 103001 BCC 75$ *NO ERROR 
3444 030572 ERROR “REPORT ERROR 
3445 030572 104460 at TRAP  CSERROR 
3 “3 030574 012737 177701 002214 MOV #~77,USEB :SPECIFY COUNT 
3448 030602 004737 013024 JSR PC, SPR ‘SPACE REVERSE 
3449 030606 004737 015316 JSR PC CHEKAE [CHECK REGISTERS 
3450 030612 103001 BCC 80$ :0K 
3451 030614 ERROR “REPORT ERROR 
3452 030614 104460 TRAP  CSERROR 
3453 030616 80$: 
3454 
3286 
3457 030616 T3AF: :TEST SPACE REVERSE COUNT ERROR. COUNT TOO LARGE 
3458 030616 004737 013324 JSR PC, :RESET TR 
3459 030622 004737 014066 JSR pC TESTIN “MAKE SURE TRANSPORT ON LINE AND READY 
3460 030626 103001 BCC 1 [NO ERROR 
3461 030630 ERROR “REPORT ERROR 
se 3 o30e3 $ —e 10$ — -ON LINE AND READY 
3464 030632 032777 000040 151404 BIT sLDPTS.@TRSR :1F AT LOAD POINT 
3465 030640 001006 BNE 2 > THEN SKIP PRELIMINARY REWIND 
3466 030642 004737 012416 JSR PC ,RWIND TREW 
3467 030646 004737 013534 JSR pC CHEK! [CHECK REGISTERS 
3468 030652 103001 BCC 2 *OK.NO ERRORS. TAPE AT LOAD POINT 
3469 030654 ERROR “REPORT ERROR 
x5) Oa0es6 — AT LOAD POINT 
3472 030656 004737 014066 JSR PC TESTN sMAKE SURE TRANSPORT ON LINE AND READY 
3473 030662 103001 BCC 308 :NO E 
3474 030664 ERROR “REPORT ERROR 
72 pavet Famers 30$ ~~ -WRITE IDB 
3477 030666 004737 012464 JSR PC,WTIDB sWRITE IDB 





CZTRAC 


-P11 


031020 


031020 
03 


03 
031056 


004737 
103001 


104460 


004737 
103001 
104460 
012737 


104460 
012737 
004737 
00473 

103091 


104460 


004737 
103001 


104460 
012737 


30-DEC-81 11:08 


014254 


014066 


014066 


014066 


177677 
013024 
015462 


013324 
014066 


000040 
O1ge 16 
013534 


002214 


002214 


002214 


151202 


TESTS 


40$: 


45$: 


50S: 


55$: 


60$: 


70$: 


75$: 


80$: 


T3AX: 


Senne — 


CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 


_- 


CSERROR 
PC, TESTN 
488 


CSERROR 


a 


PC CHEKFX 


50$ 
CSERROR 
pC ,TESTIN 


CSERROR 


#-100,USEB 


PE CHEKCX 
70$ 


CSERROR 
Peg TEST 


CSERROR 


#-101 ,USEB 


PC, 
— 


CSERROR 


Pe SESTN 
10$ 


CSERROR 


+ lade e@TRSR 


PC ,RWIND 
BC CHEKI 


: ERASE 


sWRITE 


; CHECK REGISTERS 
“REPORT ERROR 


:MAKE SURE TRANSPORT ON LINE AND READY 
“REPORT ERROR 


:SPECIFY ERASE COUNT 
; ERAS 

“CHECK REGISTERS 
“REPORT ERROR 


:MAKE SURE TRANSPORT ON LINE AND READY 
{REPORT ERROR 





:SPECIFY COUNT FOR WRITE 
: CHECK REGISTERS 
SREPORT ERROR 









SPACE REVERSE WITH LONG COUNT 
MAKE SURE 


sorcery COUNT 
[CHECK REGISTERS 


TRANSPORT ON LINE AND READY 





RROR 
“REPORT ERROR 









OK 
REPORT ERROR 


; TEST OPERATIONS wi Te Even PARITY DATA 


Py SURE TRANSPORT ON LINE AND READY 
:NO ERROR 
sREPORT ERROR 





;0N LINE AND READY 


:IF AT LOAD POINT 
N SKIP PRELIMINARY REWIND 


“REW 
“CHECK REGISTERS 
: RRORS TAPE AT LOAD POINT 


CZTRAC 


-P11 


031056 
031060 


SAPENONERUNOF 


So 
iv 
— 
—2 


031244 


104460 
004737 
103001 
104460 
004737 
004737 
103001 
104460 


004737 
103001 


104460 
012737 
7? 


30-DEC-81 11:08 


014066 


014066 


177400 
013140 
017546 


014066 


002214 


002214 


TESTS 


20$: 


30$: 


40$: 


45$: 


50$: 


55$: 


60$: 
T3SAY: 


10$: 


70$: 
T3AZ: 





F 8 
CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 
TRAP 









CSERROR 
;AT LOAD POINT 
pC TESTN ;MAKE SURE TRANSPORT ON LINE AND READY 
“REPORT ERROR 
CSERROR 
sWRITE 106 
PC,WTIDB sWRITE 108 
PC CHEKO “CHECK REGISTERS 
4 $ 70K 
“REPORT ERROR 
CSERROR 
s ERASE 
PC, TESTN iMAKE SURE TRANSPORT ON LINE AND READY 
“REPORT ERROR 
CSERROR 
#-400,USEB sSPECIFY ERASE COUNT 
PC ERS * ERASE 
pC CHEKFX ;CHECK REGISTERS 
“REPORT ERROR 
CSERROR 
;WRITE DATA WITH EVEN PARITY 
PC TESTN sMAKE SURE TRANSPORT ON LINE AND READY 
55$ [NO ERROR 
“REPORT ERROR 
CSERROR 
#-100,USEB :SPECIFY COUNT 
#BADOUT , USEC i SPECIFY DATA ADDRESS 
: CHECK REGISTERS 
“REPORT ERROR 
CSERROR 
= sSPACE REVERSE OvER EVEN PARITY DATA 
PC. TESTN “MAKE SURE TRANSPORT ON LINE AND READY 
10$ [NG ERROR 
“REPORT ERROR 
CSERROR 
:0N LINE AND READY 
#-100,USEB sSPECIFY COUNT 
PC, SPR “SPACE REVERSE 
PC CHEKAY “CHECK REGISTERS 
“REPORT ERROR 
CSERROR 
: TEST READ EVEN PARITY DATA 
PC, CPWR sRESET TR79 
PC TESTN “MAKE SURE TRANSPORT ON LINE AND READY 
10$ =NO ERROR 





——— ee - 
A ——— _ 
eee 


CZTRAC 


P11 


031246 


104460 


004737 
103001 
104460 


012737 
012737 


104401 


30-DEC-81 11:08 


014066 


TESTS 


10$: 


75$: 


80$: 


L10023: 


-SBTTL 


CHECK IDB AND EOF OPERATIONS,COUNT AND PARITY ERRORS 


CSERROR 
PC, TESTN 
Pg 


CSERROR 


#-100,USEB 
#INPUT , USEC 


PE CHEKAZ 
868 


CSERROR 
PC,CPWR 


CSETST 


WRITE, READ AND TEST DATA WRITTEN TO TAPE 


G 8 


;REPORT ERROR 


:0N LINE 


AND READY 
NO E 


RROR 
REPORT ERROR 


SPECIFY 


COUNT 
;SPECIFY DATA ADDRESS 


“READ 
“CHECK REGISTERS 
“REPORT ERROR 
:TR79 FOWER CLEAR 


;MAKE SURE TRANSPORT ON LINE AND READY 


SEQ 97 


CZTRAC 


esses 
OONOWSE 


Bseep 


P11 


031316 
631316 
031316 


031316 


031324 
031332 


104460 


30-DEC-81 11:08 


000100 
000004 


013324 
014066 


000040 


012416 
013534 


014066 


150716 
150712 


150656 


me ee eee t—™=™S 


H 8&8 



































SEQ 98 CL 
TEST4 WRITE, READ AND TEST DATA WRITTEN TO TAPE | 
| 
| 
SALTTTTTALTATAAT AAA AA AAA AAA AAA AA | 
; TESTS WRITES, READS AND TESTS DATA WRITTEN ON TAPE | 
; TEST4 WRITES A te OF DATA TO TAPE A NUMBER OF TIMES. 
: THE FILE CONTAINS y BLOcks OF DATA. EACH TIME A BLOCK 
: 1S WRITTEN T CK AND CHECKED. THE NUMBER 
: OF TIMES WRITING AND. CHECKING A FILE IS REPEATED 1s 
: SPECIFIED IN THE SOFTWARE P-TABLE. THE DEFAULT VALUE 
: FOR THIS REPEAT COUNT IS 10. (DECIMAL). 
: TEST4 INCLUDES: TEST NAME IN CZTRAB 
: INSURE WRITE RING TESTC 
REWIND AND WRITE ID BLOCK T 
: WRITE.SPACE REV, READ AND TEST DATA TESTXX 
S IILIITA TITTLE VATTUTTATATTAAATLAATTAT TASTE I : 
BGNTST 
TEST4: : TEST REPEATED WRITE, SPACE REVERSE, READ 
GATE TR79” INTERRUPT ENABLE | 
BIC #B1T6,aTRCR 79 INTERRUPT ENABLE BIT 
: CHECK roa’ WRITE ENABLE RI 
BIT #EPTS a@TRSR ;1F WRITE ENABLE RING IS PRESENT 
BEQ 10$ THEN CONTINUE 
ENUM = “D<ENUM + 1> S INCREMENT ERROR NUMBER 
ERRSOFT ENUM, EM4A,ERR2 [REPORT ERROR. GET RING INSTALLED 
TRAP  CSERSOFT 
WORD 
“WORD  EM6A 
“WORD ERR2 
10$: :MAKE SURE TAPE 1S AT LOAD POINT 
JSR PC, CPWR sRESET TR 
JSR Pe TESTN “MAKE SURE TRANSPORT ON LINE AND READY 
BCC 15$ *NO ERROR 
ERROR *REPORT ERROR 
sai TRAP  CSERROR 
BIT ALDPTS,@TRSR :1F AT LOAD POINT 
BNE > THEN SKIP PRELIMINARY REWIND 
JSR PC ,RWIND : 
JSR pC CHEK [CHECK REGISTERS 
BCC “NO ERRORS. 
ERROR “REPORT ERROR 
TRAP § CSERROR 
20$: :AT LOAD POINT 
JSR PC TESTN sMAKE SURE ON LINE 
BCC 25$ 
ERROR “REPORT ERROR 
TRAP — CSERROR 


CZTRAC 


-Pi1 


031414 


031574 


004737 
004737 
103001 


104460 


004737 
103001 
104460 
012737 
004737 
004737 
103001 


104460 
013746 
01 


30-DEC-81 11:08 


014066 


177400 
013140 
017546 


002152 
000017 
032000 
002214 


014066 


012642 
150516 


017156 


014966 


014066 


012756 


002214 


TESTS 
25$: 


30$: 


35$: 


40$: 
T4XX: 
10$: 


15$: 


20S: 


25$: 


30$: 


35$: 


I 


WRITE, READ AND TEST DATA WRITTEN TO TAPE 


;WRITE IDB 
PC,WTIDB :W 
pC CHEKO “CHECK REGISTERS 
“REPORT ERROR 
CSERROR 
s ERASE 
pC TESTA sMAKE SURE TRANSPORT ON LINE AND READY 
“REPORT ERROR 
CSERROR 
#-400,USEB ; SPECIFY ERASE COUNT 
JERS * ERASE 
BC CHEKFX *CHECK REGISTERS 
“REPORT ERROR 
CSERROR 
;TEST REPEATED SEQUENCE OF WRITE.SPACE REVERSE ,READ 
RPTCNT,=(SP) LOOP REPEAT COUNT 
. RG IFY NUMBER OF BLOCKS PER LOOP 
WSIZTAB,R3 “POINT TO TABLE OF BLOCK SIZES 
+, USEB + SPECIFY WORD» COUNT 
= (§P) 7SAVE R3 AND R 
R4.-(SP) 
sWRITE 
PC .TESTN sMAKE SURE ON LINE AND READY 
[REPORT ERROR 
CSERROR 
PC,WRT EXECUTE WRITE 
aTASR :1F AT £0 
100$ THEN REWIND AND EXIT TEST 
BC , CHEKCK ; CHECK REGISTERS 
“REPORT ERROR 
CSERROR 
:SPACE REVERSE 
Pe TESTN sMAKE SURE ON LINE AND READY 
258 *0K 
“REPORT ERROR 
CSERROR 
PC, SPR :SPACE REVERSE 
PC’ CHEKEX *CHECK REGISTERS 
30$ > OK 
“REPORT ERROR 
CSERROR 
sREAD 
pC ,TESTIN sMAKE SURE ON LINE AND READY 
“REPORT ERROR 
CSERROR 
PC.RD sEXECUTE READ 









SEQ 99 


eresigeenininll 


ee ee ee ee a - —_ 





J 8 












CZTRAC.P11 30=DEC-81 11:08 TEST4 WRITE, READ AND TEST DATA WRITTEN TO TAPE 
3726 031600 004737 017276 JSR PC CHEKDX sCHECK REGISTERS 

3727 031604 103001 BC’ 40$ : OK 

3728 031606 ERKUR “REPORT ERROR 

3729 031606 104460 TRAP  CSERROR 

3730 031610 40$: 

3731 031610 004737 014364 JSR PC CHEKS sCHECK DATA JUST READ 

3732 031614 103001 BCC 50$ “OK 

3733 031616 ERROR “REPORT ERROR 

3734 031616 104460 TRAP  CSERROR 

3735 031620 004737 014466 50$: JSR PC, CHEKS1 “CLEAR INPUT AREA 

3736 : CHECK FOR REPEAT ag QUENCE 

3737 031624 012604 MOV (SP) +,R4 =k 

3738 031626 012603 MOV (SP)+°R3 

3739 031630 005304 DEC R4 :1F NOT ALL BLOCK SIZES DONE 
3740 031632 001321 BNE 10$ THEN DO THE NEXT ONE 

3741 s WRITE EOF 

3742 031634 004737 014066 JSR PC TESTN ;MAKE SURE ON LINE AND READY 
3743 031640 103001 BCC 55$ 

3744 031642 ERROR “REPORT ERROR 

3745 031642 104460 TRAP — CSERROR 

3746 031644 55$: 

3747 031644 004737 013072 JSR PC, WTEOF WRITE EOF (TAPE MARK) 

3748 031650 105777 150379 TSTB = aT RSR ;1F AT £0 

3749 031654 100435 aM] 110 THEN REWIND AND EXIT 
3750 031656 004737 013756 JSR PC, CHEKL SCHECK REGISTERS 

3751 031662 103001 BCC 60$ * OK 

3752 031664 ERROR SREPORT ERROR 

3753 031664 104460 TRAP  CSERROR 

3754 031666 | 60S: :SPACE REVERSE OVER EOF 

3755 031666 004737 014066 JSR PC TESTN ;MAKE SURE ON LINE AND READY 
3756 031672 103001 acc 65$ 

3757 031674 ERROR “REPORT ERROR 

3758 031674 104460 TRAP  CSERROR 

3759 031676 65S: 

3760 031676 005037 002214 | CLR USEB sSPECIFY COUNT 

3761 031702 004737 013024 JSR PC, SPR “SPACE REVERSE OVER EOF 
3762 031706 004737 014506 JSR PC. CHEKU =CHECK REGISTERS 

3763 031712 103001 Bcc 70$ > OK 

3764 031714 ERROR *REPORT ERROR 

3765 031714 104460 TRAP § CSERROR 

3766 031716 70$: :READ EOF 

3767 031716 004737 012756 JSR PC.RD : 

3768 031722 004737 014636 JSR PC. CHEKY >CHECK REGISTERS 

3769 031726 103001 BCC 80$ 0K 

3770 031730 ERROR “REPORT ERROR 

3771 031730 104460 TRAP  CSERROR 

031732 80S: 
031732 005716 TST (SP) :IF LOOP REPEAT COUNT IS NEGATIVE 

3774 031734 100401 BM! 90$ : THEN REPEAT LOOP TO EOT 
g 005316 DEC i SUBTRACT I LOOP REPEAT COUNT 
3776 031740 001252 90$: BNE T4XX :I1F COUNT NOT ZERO THEN REPEAT LOOP 
3777 031742 000402 BR 110$ “REWIND AND EXIT TEST 

3778 031744 100$: :AT EOT. REWIND AND EXIT tee 

3779 031744 012604 MOV (SP)+,R4 sRESTORE R4& AND R3 

3780 031746 012603 MOV (SP)+-R3 

3781 031750 005726 110$: TST (Sp) :DISCARD LOOP REPEAT COUNT 


- aL LR ALA ALA ee - 





CZTRAC.P11 





177400 


104401 


30-DEC-81 11:08 


014066 


177000 


177775 


176000 


TEST4 
T4EX: 


10$: 


20$: 
SIZTAB: 


ENDT4: 


L10024: 


.SBTTL 


kK 8 


WRITE, READ AND TEST DATA WRITTEN TO TAPE 


ENDTST 
TRAP 
TESTS 


—* 


CSERROR 
pe Pot 
508 


CSERROR 
NDT4 


E 
-1 272,73, 74 ,75,°6,°7,7°10, 


CSETST 


;REWIND 


; MAKE 


SURE ON LINE AND READY 


; OK 
;REPORT ERROR 


REWIND 
“CHECK REGISTERS 
“REPORT ERROR 


sEXIT 
-20, 


READ DATA WRITTEN BY TEST4 


jest 
-40,-100,-200,-400,-1000,-2000 


SEQ 101 


—— a me ee — - 





L 8 






SE@ 102 
CZTRAC.P11 30=DEC-81 11:08 TESTS READ DATA WRITTEN BY TEST4 

3805 
ss RAL 
3808 ;TESTS READ DATA WRITTEN BY TEST4 
33 +f : TESTS INCLUDES: TEST NAME IN CZTRAB 
3811 : REWIND THE TAPE TESTI 
3812 READ THE ID BLOCK TESTAw 
3813 : READ TESTXY 
3814 SAATILUTATAALTA TATA AAAI 
3816 
3817 
3813 
3819 
3820 032040 BGNTST 
3821 032040 TS:: 
3822 032040 TESTS: : TEST READING DATA WRITTEN BY TEST4 
3823 ;NEGATE TR79 INTERRUPT ENABL 
3824 032040 042777 000100 150174 BIC #B1T6,aTRCR CLEAR TR79 INTERRUPT ENABLE BIT 
3825 sMAKE suke AT LOAD POINT 
3826 032046 004737 013324 JSR PC, CPWR sRESET TR79 
3827 032052 004737 014066 JSR PC TESTN ;MAKE SURE TRANSPORT ON LINE AND READY 
3828 032056 103001 acc 10$ RROR 
3829 032060 : ERROR “REPORT ERROR 
3830 032060 104460 TRAP — CSERROR 
3831 032062 10S: 30N LINE AND READY 
3832 032062 032777 000040 150154 BIT #LDPTS,aTRSR s1F AT LOAD POINT 
3833 032070 001006 BNE 20$ : THEN SKIP PRELIMINARY REWIND 
3834 032072 004737 012416 JSR PC ,RWIND SREWIND 
3835 032076 004737 013534 JSR PC. CHEK [CHECK REGISTERS 

032102 103001 Bcc 208 : : 
3837 032104 ERROR “REPORT ERROR 
3838 032104 104460 TRAP CSERROR 
3839 032106 208: :AT LOAD POINT 
3840 032106 004737 014066 JSR PC, TESTN ;MAKE SURE TRANSPORT ON LINE AND READY 
3841 032112 103001 Bcc 25$ RROR 
3842 032114 ERROR “REPORT ERROR 
3843 032114 104460 TRAP § CSERROR 
3844 032116 258: 
3845 032116 TSAW: :READ IDB 
3846 032116 004737 014066 JSR PC, TESTN ;MAKE SURE ON LINE 
3847 032122 103001 BCC 10$ 
3848 032124 ERROR “REPORT ERROR 
3849 032124 104460 TRAP  CSERROR 
3850 032126 10$: 
3851 032126 012737 177777 002214 MOV #~1,USEB :SPECIFY COUNT FOR READ IDB 
3852 032134 004737 012756 JSR ¥ *READ 
3853 032140 004737 016262 JSR PC’ CHEKAW *CHECK REGISTERS 
3854 032144 103001 BCC 20$ ; 
3855 032146 ERROR “REPORT ERROR 
3856 032146 104460 TRAP CSERROR 
3857 032150 20S: :READ DATA WRITTEN BY TESTS 
3858 032150 013746 002152 MOV RPTCNT,-(SP) :COPY LOOP REPEAT C 
3859 032154 012704 000017 T5XY: MOV #15. RG ‘SPECIFY NUMBER OF BLOCKS PER LOOP 
3860 032160 012703 032000 MOV WSIZTAB,R3 “POINT TO THE TABLE OF BLOCK SI7ES 





CZTRAC.P11 


3861 
3862 
3865 


3865 
3867 


3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 


Beee 


032164 
032170 
032172 


032174 


ee es ee ae ae eee eee ete 


30-DEC-81 11:08 


012337 
4 10346 


104460 


105777 
11 


002214 


014066 


012756 
150030 


014364 


014466 


014066 


177777 
012756 
147754 


014636 


014066 


002214 


TESTS 
10$: 


20S: 


30$: 


40$: 


50S: 


60$: 


70$: 


75$: 


80$: 


L10025: 


SEQ 103 


READ DATA WRITTEN BY TEST4 


ENDTST 
TRAP 


ee USEB 


SP) 
Ra, = (SP) 


_ 


CSERROR 


PC,RD 
aTRSR 


60$ 
PC, CHEKS 
30$ 

CSERROR 


PC ,CHEKS1 
4 


(SP)+,R 
(SP)+,R3 
R4 

10$ 
PC,TESTN 


40$ 
CSERROR 
#~1 ,USEB 
PC,RD 
aTRSR 


CSERROR 
rebut 
808 


CSERROR 


CSETST 


;SPECIFY WORD COUNT 
;SAVE REGISTERS 


;READ 
MAKE SURE ON LINE AND READY 


; OK 
;REPORT ERROR 
; READ 
IF AT EOT 

THEN REWIND AND EXIT TEST 
: CHECK DATA JUST READ 
;REPORT ERROR 


;CLEAR INPUT AREA 
;RESTORE REGISTERS. 


ie COUNT. ALL BLOCK SIZES DONE? 
F NO, GO DO THE NEXT ONE 


7 MAKE SURE ON LINE AND READY 
“REPORT ERROR 


:READ EOF 


aly FOR READ EOF 





; THEN REPEAT TO EOT 
A ine al 1 FROM LOOP REPEAT COUNT 


; AT LOOP 
REWIND AND EXIT TEST 


sAT EOQT. REWIND AND EXIT TEST 
RESTORE REGISTERS. 


:DISCARD LOOP REPEAT COUNT 
;MAKE SURE ON LINE AND READY 


; OK 
[REPORT ERROR 


REWIND 
: CHECK REGISTERS 
“REPORT ERROR 


eee ee - 


CZTRAC.P11 


30-DEC-81 11:08 


TESTS 


~SBTTL 


N 8 
READ DATA WRITTEN BY TEST4 


TEST6 CHECK MANUAL INTERVENTION OPERATIONS 


SEG 104 


— ewe = - 


eee 
me a ee eee ee ee re ee Oe na 


CZTRAC.P11 


3953 


SRERSESES EY 


042777 


032777 
001026 


012746 


30-DEC-81 11:08 


000100 147670 
000004 147664 
022024 
020473 
000002 


069006 
0u?230 
000004 147622 


BY 


TEST6 CHECK MANUAL INTERVENTION OPERATIONS 


BU CUUUO 
sTEST6 CHECKS MANUAL INTERVENTION OPERATIONS 


TEST6 CORRESPONDS TO TEST GROUP 1 FROM CZTRAB 


; TEST6 INCLUDES: TEST NAME IN CZTRAB 
: REMOVE WRITE RING TESTB 
: TRY TO WRITE WITHOUT RING RUNAS 
: INSERT WRITE RING TESTC 
: LAY 10 SECONDS TESTAJ 
: UNIT OFF LINE TESTP 
: T ERATOR TO RESET TESTAK 
; REWIND THE TAPE TESTI 
; WRITE PAST EOT TESTAL 
: SPACE REVERSE PAST EOT TESTAM 
: READ PAST EOT TESTAN 
: WRITE EOF PAST EOT ESTAO 
: SPACE REVERSE OVER EOF PAST EOT TESTAP 
; READ EOF PAST EOT ESTAQ 
; REWIND AND GO OFF LI T 


NE TESTO 
FITTTTTATATATATAT DATTA ATT ATTA TTT ATT 











BGNTST 
T6:: 
TEST6: 
sTEST WRITE IDB WITHOUT WRITE ENABLE RING 
; sNEGATE TR79 INTERRUPT 
BIC #BiT6,aTRCR :CLEAR INTERRUPT ENABLE BIT 
T1B: :REMOVE WRITE ENABLE RING 
BIT T2,@TRSR sIF WRITE ENABLE RING NOT PRESENT 
BNE > THEN CONTINUE TEST 
10S: 1 * ELSE ASK OPERATOR TO REMOVE RING 
ADD #6,5P 
MOV DLXTOF ,R2 :SPECIFY DELAY MULTIPLIER 
CLR R *SPECIFY DELAY CONSTANT 
20$: BIT #B1T2 @TRSR *IF RING IS NOT PRESENT 
BNE 30$ * THEN KEEP CONTINUE TEST 
INC R1 TICK 
BNE 20$ ‘KEEP CHECKING 
DEC R “COUNT DOWN MULTIPLIER 
BNE 20$ “KEEP CHECKING 
BR 10$ “REMIND OPERATOR 
sMAKE SURE ON LINE 


' 


SEQ 105 


—— el - 
Ne a nee ae ee Ee ae 


¢c 9 
Sot 30-DEC-81 11:08 TEST6 CHECK MANUAL INTERVENTION OPERATIONS 
3976 032436 004737 014166 30$: JSR At TESTNN ;WAIT FOR TRANSPORT ON LINE 








3977 032442 103004 BC “OK. ON LINE WITH NO ERROR 
000055 ENUM = “D<ENUM + 1> “INCREMENT ERROR COUNT 
032444 ERRSOFT ENUM Moat, ERR1 “REPORT ERROR 
444 104457 TRAP CSERSOF 
032446 000055 .WORD 4 
450 021140 "WORD M2A1 
52 017736 - "WORD ERR 
032454 004737 013354 40$: JSR PC RWWAIT sWAIT 
32460 004737 013324 JSR PC; CPWR “RESET TR79 
032464 TIAS: sWRITE 108 WITHOUT WRITE ENABLE RING 
032464 004737 014114 JSR PC, TSTRDY sMAKE SURE READY 
032470 103001 CC 10$ : OK 
032472 “REPORT NCT READY 
032472 104460 CSERROR 
032474 004737 012464 10S: C,WTIDB :WRITE 108 
032500 013737 002222 002220 OLXRW,DLX ;SET DELAY CONSTANT FOR WAIT 
032506 004737 013362 PC ,WWAIT I 
032512 013254 p : COPY Y TR79 REGISTERS 








004737 
032516 012737 142632 002174 


PC CPYTRR 
#142632, ETRCR 
032524 012737 002004 002176 # TRSR 
















32532 023737 002174 002164 ETRCR,ATRCR 
032540 001401 40$ =C REGIST 
032542 005202 R2 * INDICATE ERROR 
032544 40$: 
032544 042737 000040 002166 #B1TS,ATRSR :CLEAR UNWANTED BITS 
032552 023737 002176 002166 ETRSR -ATRSR “TEST THE STATUS REGISTER 
32560 001401 $ SSTATUS REGISTER OK 
032562 005 ‘ INDICATE ERROR 
032564 50$: 
032564 005702 R2 ZANY ERRORS? 
032566 001404 ; 
ENUM = + 1> SINCREMENT ERROR COUNT 
032570 ERRSOFT ENUM, MWENFL ERR “REPORT ERROR 
032570 104457 TRAP  CSERSOFT 
032572 
032574 023543 MWENF L 
032576 F ERRS 
032600 80$: 
032600 004737 013324 JSR PC, CPWR RESET TR79 
032604 TIC: s INSTALL WRITE ENABLE RING 
032604 006737 013446 JSR PC, TESTC :GET wRITE ENABLE RING INSTALLED 
032610 004737 014166 308: JSR PC TESTNN FOR TRANSPORT ON LINE 
032614 103004 Bec iS $ 
000057 ENUM = “D<ENUM + 1> 
032616 ERRSOFT ENUM mat JERR 
032616 104457 TRAP CSERSO RSOF 
620 7 WORD 
032622 021140 “WORD M2AT 
032624 017736 “WORD ERR1 
032626 004737 013354 40$: JSR PC RWWAIT sWAIT 
032632 004737 013324 JSR PC; CPWR “RESET TR79 
032636 013737 002226 002220 TIAJ: MOV DLXBEL ,DLX “SET 10 SECOND DELAY MULTIPLIER 
032644 004737 013362 JSR PC ,WWAIT ‘WAIT 10 SECONDS 


ee ee a ee ee ee ee 





CZTRAC. 


P11 


004737 
032777 
001404 
104457 
000060 
022545 
017736 
032777 
001004 


004737 


30-DEC-81 11:08 


100000 


013324 
014214 


013354 
013324 
014114 


0133524 


020473 
000902 


000006 
002230 


147362 


147340 


_02322T 


TEST6 


TIP: 


ENUM 


20$: 


EMUM 


30$: 


TIAK: 


ENUM 


10$: 


_15$:— 


30S: 


002000 147222 40$: 


0 9 


———— 


CHECK MANUAL INTERVENTION OPERATIONS 





BCC 
“D<E 





M2A1 
ERR1 


Sa 
CSPNTF 
#6,SP 

DLXTOF 


R 
+ 
tbs 





JSR PC.OFFLN’ 
BIT 1710, aTRSR 
BEQ 2 
“D<ENUM + 1> 
ERRSOFT ENUM, MUNOFL,ERR1 
TRAP CSERSOFT 
“WORD MUNOFL 
“WORD = ERR1 
BIT T15,a@TRCR 
BNE 808 
“D<ENUM + 1> 
ERRSOFT ENUM,MOFLEFL,ERR1 
TRAP CSERSOFT 
. WORD 
“WORD MOF LEFL 
“WORD ERR 
JSR PC, CPWR 
PC, TESTNI 
108 


NUM + 
ERRSOF T ENUM M2A1,ERR1 
CSERSOFT 


PC, CPWR 
#FATIXT ,AMRSTU 


STU,=(SP 
#EMTTXT,-(SP) 
(SPs 


. oR2 
IT10,aTRSR 
1 


: CONTI 
i ERROR NUMBER 


USING OFF LINE COMMAND 
F ths COMMAND 
T OFF L 
NUE TE 





- 
THEN TEST 


;REPORT 


;1F TR79 ERROR er : " 
; _THEN CONTINUE T 

RROR BIT SHOULD SET WHEN TAKE UNIT 
; OFF LINE OPERATION IS PERFORMED 
Z INCREMENT ERROR NUMBER 
;REPORT ERROR 










“RESET TR79 
-TEST OPERATOR RESET 
:GET TRANSPORT ON LINE 


ZINCREMENT ERROR COUNT 
ZREPORT ERROR 


WAIT 
TR POWER CLEAR 


SURE READY 
IF NO ERROR THEN CONTINUE TEST 
ELSE REPORT ERROR 





; REQUEST ter te RESET 


sRESET 
2 ASK OPERATOR TO RESET TRANSPORT 





SEQ 107 


CZTRAC 


ed ed ed eed aed aed od od 


PHL HLHLLLHLLL LHL SE 
PIII) nd ed et et et ot ot I 
NR—OOBDNOULWN © 


-P11 


033150 
SUE, 
0 


033240 


30-DEC-81 11:08 


000040 
002176 
002172 


002170 


013324 


014214 


147020 


TEST6 


50$: 


60S: 


70$: 


80$: 


90$: 


95$: 


TIAL: 
TIAG: 


ENUM = 


10$: 


a 









WAIT 
COPY TR79 


STEST COMMAND REG 
; COMMAND | REGISTER OK 
NOTE ERROR 


;REMIND OPERATOR 


s INDICATE EXPECT 
s INDICATE EXPECTED RESULT 
ISTER 


;CLEAR BIT 5(LOAD POINT 


:TEST THE STATUS (INHIBIT BIT) 


* OK 
INDICATE ERROR 
sTEST BUFFER ADDRESS 
: SS OK 
‘INDICATE ERROR 
:TEST THE WORD COUNT 
S INDICATE ERROR 

ZANY ERRORS? 


S INCREMENT ERROR NUMBER 
REPORT ERROR 


:TR79 POWER CLEAR 


"INCREMENT ERROR COUNT 
REPORT ERROR 


ih 
;TR79 POWER CLEAR 

ELSE REPORT 
179 POWER CLEAR 


CHECK REGISTERS 
“REPORT ERROR 


CHECK MANUAL INTERVENTION OPERATIONS 
BR 30$ 

a ee pC. RWWALT 

JSR cPyT 

MOV #16 O86" ETRCR 
MOV f ETRS 

BIT #100000, ATRCR 
BNE 60$ 

INC 

BIC WBITS,ATRSR 
CMP ETRSRATRSR 
BEQ 0$ 

INC 2 

TST ATRBA 

BEQ 80$ 

INC R2 

TST ATRWC 

BEQ 90$ 

INC R2 

TST R2 

BEQ 95$ 

= “D<ENUM + 1> 

ERRSOFT ENUM .MARSFL .ERRS 
TRAP SER SOFT 

WOR PARSE L 

“WORD ERR 

JSR PC, CPWR 

JSR PC, TESTNI 
BCC 10$ 
“D<ENUM + 1> 

ERRSOFT ENUM.M2A1,ERR1 
TRAP CSERSOFT 
.WORD 51 

“WORD M2A1 

“WORD  €RR1 

JSR PC RWWAIT 
JSR ‘ 

JSR PC TSTRDY 
BCC 15$ 

ERROR 

TRAP § CSERROR 

JSR PC, CPWR 

BIT 175, aTRSR 
BNE $ 

JSR PC ,RWIND 

JSR PC CHEK 

BCC 20$ 

ERROR 


ee lO ee eae 


>TEST TAPE FUNCTIONS EXECUTED WHILE TAPE IS BEYOND EOT 
sASK OPERATOR TO PUT TRANSPORT ON LINE 


SURE READY 
NO ERROR THEN CONTINUE TEST 
ERROR 


SEQ 108 





CZTRAC 





-P11 





033240 





104460 


104460 


023737 
001401 
005202 


30-DEC-81 11:08 


014066 


013324 
012600 
000200 


015626 


014066 


014066 


013024 


146754 


002214 


002214 


002174 
002176 
002200 
002164 


002166 


TEST6 


20S: 


258: 


30$: 


35$: 


40$: 


50$: 


55$: 
TIAM: 


10$: 


40$: 





F 9 


me a = a a se -—™ ———_ 


CHECK MANUAL INTERVENTION OPERATIONS 


TRAP 


CSERROR 
PC. TESTN 
aT 


CSERROR 
PC, CPWR 
¢C GEOT 
1T7,aTRSR 
PC. CHEKAG 
aT 


CSERROR 


PC, TESTN 
40$ 


CSERROR 
#-1000,USEB 


CSERROR 
#-100,USEB 
PC’ CHKAG1 
sé 


CSERROR 
PC 


10$ 
CSERROR 


TESTN 


a MRER 
a3 
ETRSR -ATRSR 


:MAKE SURE ON LINE AND READY 
“REPORT ERROR 
sFAST FORWARD TO EOT 


SCHECK REGISTERS 
“REPORT ERROR 


ERASE AFTER EOT 


sENSURE ON LINE AND READY 
“REPORT ERROR 


SPECIFY COUNT FOR ERASE 
ERASE 


WAIT 
“ENSURE ON LINE AND READY 


OK 
REPORT ERROR 


sWRITE AFTER EOT 


;SPECIFY COUNT FOR WRITE 
;CHECK REGISTERS 
[REPORT ERROR 
;SPACE REVERSE AFTER EOT 
;ENSURE ON LINE AND READY 
“REPORT ERROR 





:SPACE REVERSE 

WAIT 

= CORY TR79 REGISTERS 

Z EXPECTED 

s EXPECTED 

OK COMMAND REGISTER 

; INDICATE ERROR 

ST THE STATUS REGISTER 


: INDICATE ERROR 
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104457 


000064 
023333 
020102 


023737 
001401 


106457 
5 


00006 
023374 
020120 


004737 
103001 
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002172 


002200 


014066 


012756 


014066 


002170 


002166 


TEST6 


55$: 


60$: 


70$: 


TIAN: 


10$: 


20$: 


30S: 


40$: 


¢G 9 


CHECK MANUAL INTERVENTION OPERATIONS 





TST ATRBA : TEST BUS ADDRESS 
BEQ 55$ 30K 
INC R2 S INDICATE ERROR 
CMP ETRWC ,ATRWC sTEST THE WORD COUNT 
BEQ 60$ : 
INC R2 “ INDICATE ERROR 
TST sANY ERRORS 
BEQ 70$ : 
ENUM = “D<ENUM + 1> “INCREMENT ERROR NUMBER 
ERRSOFT ENUM, MSRETFL,ERRS “REPORT ERROR 
TRAP CSERSOFT 
. WORD 
“WORD NSRETFL 
“WORD ERR 
sREAD AFTER EOT 
SR PC TESTN :MAKE SURE ON LINE AND READY 
ERROR “REPORT ERROR 
TRAP  CSERROR 
JSR PC.RD sREAD 
JSR PC RWWAIT “WAIT 
JSR PC’ CPYTRR “COPY TR79 REGISTERS 
MOV 438 “ETRCR S EXPECTED 
MOV #2201, ETRSR SEXPECTED 
CMP ETRCR-ATRCR TEST COMMAND REGISTER 
INC R S INDICATE ERROR 
Cp ETRSR -ATRSR sTEST THE STATUS REGISTER 
INC R2 S INDICATE ERROR 
TST ATRWC :TEST THE WORD COUNT 
BEQ ao 70K 
INC R SINDCATE ERROR 
TST R :ANY ERRORS? 
BEQ 50$ NO 
ENUM = “D<ENUM + 17> ‘INCREMENT ERROR NUMBER 
ERRSOFT ENUM. MRPETFL.ERRG “REPORT ERROR 
TRAP RSOFT 
WORD 
“WORD MARPETFL 
“WORD  ERR6 


50S: 


T1A0: 


JSR 
BCC 


ERROR 


;TEST EOF AFTER EOT FUNCTIONS 
GET TRANSPORT ON LINE 


rs TESTN 
108 : 
sREPORT ERROR 


SEQ 110 





s ane «ae ono om ese ee Ss La oe 
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104460 


104457 
000066 


023424 
020102 


00 
005202 
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Sso-eces 
MORIAAI AIA 
= TUNINIWOr 
SW 
PV Ene 


ey 
So 
™m Nm 
od os 
~ ~ 
Nm oO 


002170 


002170 


TEST6 


10$: 


20S: 


30$: 


40S: 


50$: 


ENUM = 


60$: 
TIAP: 


20S: 


30$: 


40S: 


ae ae + ee 


H 9 









CHECK MANUAL INTERVENTION OPERATIONS 

TRAP  CSERROR 

WRITE EOF AFTER EOT 

CLR B ;SPECIFY WORD COUNT 
JSR PC, WIEOF iWRITE EOF 

JSR PC RWWAIT “WAIT 

JSR PC“CPYTRR :COPY TR79 REGISTERS 
MOV 8 é 4,ETRCR PECTED 

MOV #2211, ETRSR ZEXPECTED 

COP ETRCR. "ATRCR “TEST COMMAND REGISTER 
INC R2 “INDICATE ERROR 

CMP ETRSR -ATRSR sTEST THE STATUS REGISTER 
BEQ Qs + 0K 

INC R * INDICATE ERROR 

TST ATRBA : TEST BUFFER ADDRESS 
BEQ 40$ 70K 

INC R2 * INDICATE ERROR 

TST ATRWC :TEST THE WORD COUNT 
BEQ 50$ 70K 

INC 2 * INDICATE ERROR 

TST R sANY ERRORS 
“D<ENUM + 1> * INCREMENT ERROR NUMBER 
ERRSOFT ENUM. MWEFETF,ERRS “REPORT ERROR 

RAP SERSOFT 

,WORD 54 

"WORD MWEFETF 

“WORD ERR 

sTEST SPACE REVERSE OVER EOF BEYOND EOT 

JSR PC,S :SPACE REVERSE 

JSR PC, ;WAI 

JSR PC’ CPYTRR “COPY TR79 REGISTERS 
MOV #3610, ETRCR [EXPECTED 

MOV #2211, ETRSR S EXPECTED 

MOV USEB, ETRW [EXPECTED 

CMP ETRCR.ATRCR > TEST COMMAND REGISTER 
BEQ 0$ 70K 

INC “INDICATE ERROR 

CMP ETRSR -ATRSR sTEST THE STATUS REGISTER 
BEQ 0$ 370K 

INC > INDICATE ERROR 

TST ATRBA : TEST BUFFER ADDRESS 
BEQ 40$ 30K 

INC R2 “INDICATE ERROR 

CMP ETRWC -ATRUC :TEST THE WORD COUNT 
BEQ 0$ 30K 

INC “INDICATE ERROR 





SEQ 111 


TS 
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005702 
001404 
000067 
104457 

7 


00006 
023474 
020102 


023737 
001401 
005202 


30-DEC-81 11:08 


002202 


002200 


014066 


000200 
002000 


012416 
013534 


002164 


002166 


002172 


002170 


146010 
146000 


TEST6 


ENUM = 


208: 


30S: 


40S: 


50$: 


ENUM = 


60$: 
710: 


10$: 
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CHECK MANUAL INTERVENTION OPERATIONS 


TST 


BEQ 
“D<ENUM + 


sANY ERRORS? 
66s 


‘ INCREMENT ERROR NUMBER 


5 ll ERRS REPORT ERROR 












ERRSOF T ENUM 

TRAP CSERSOFT 

.WORD 55 

"WORD MREFETF 

“WORD ERRS 

:READ EOF BEYOND EOT 

JSR PC.RD READ 

JSR PC-RWWAIT “WAIT 

JSR PC_\CPYTRR “COPY TR79 REGISTERS 
MOV #2204 ,ETRCR ‘EXPECTED 

MOV #2211. ETRSR “EXPECTED 

MOV #INPUT,ETRB “EXPECT 

MOV USEB,ETRWC PECTED 

CAP ETACR, ATRCR ST COMMAND REGISTER 
INC “ INDICATE ERROR 

CMP ETRSR -ATRSR :TEST THE STATUS REGISTER 
BEQ 0$ : OK 

INC * INDICATE ERROR 

CMP ETRBA,ATRBA : TEST BUFFER ADDRESS 
BEQ 40$ 30K 

INC R2 * INDICATE ERROR 

CMP ETRWC ,ATRWC sTEST THE WORD COUNT 
BEQ 50$ 70K 

INC R2 > INDICATE ERROR 

TST R2 ZANY ERRORS? 

BEQ : 
“D<ENUM + 1> ‘INCREMENT ERROR NUMBER 
ERRSOFT ENUM,MREFETF ,ERRS “REPORT ERROR 

RAP  CSERSOFT 

.WORD 56 

“WORD MREFETF 

“WORD  ERRS 

: TEST TR79 RESET WHILE REWINDING 

JSR PC. TESIN. :MAKE SURE ON LINE AND READY 
BCC 10$ * OK 

ERROR “REPORT ERROR 

TRAP  CSERROR 

:POSITION TAPE AT EOT 

BIT #B1T7,aTRSR ;1F AT EOT 

BNE : THEN OMIT REWIND AND GO EOT 
BIT 1T10,aTRSR 1 AT LOAD POINT 

BNE $ : THEN OMIT REWIND 
JSR PC RWIND *REWIND 

JSR PC CHEK I “CHECK REGISTERS 

BCC 20$ : 0K 





SEQ 112 | 


SS —_—— 


ae 
ee 





J 9 
SEQ 113 











CZTRAC.P11  30=DEC-81 11:08 TEST6 CHECK MANUAL INTERVENTION OPERATIONS 
368 034260 ERROR sREPORT ERROR 

4369 034260 104460 TRAP  CSERROR 

4370 034262 20S: sAT LOAD POINT 

4371 034262 004737 014066 JSR PC TESTN ;MAKE SURE ON LINE AND READY 
4372 034266 103001 BCC 25$ 

4373 034270 ERROR “REPORT ERROR 

4374 034270 104460 TRAP  CSERROR 

4375 03427 25$: :GOEOT 

4376 03427 737 012600 JSR PC GEOT sFAST FORWARD TO EOT 
4377 034276 032777 000200 145740 30$: BIT #BIT7,aTRSR “WAIT FOR EOT 

4378 0343046 001774 BEQ 30$ 

4379 034306 40S: s REWIND FROM 

4380 034306 004737 013324 JSR PC, CPWR PRELIMINARY TR79 RESET 
4381 034312 004737 012416 JSR PC -RWIND *REWIND 

4382 034316 004737 013354 JSR PC RWWAIT “WAIT 

4383 :RESET WHILE REWINDING 

4384 034322 052777 000 145712 BIS #B1T11,aTRCR SE 

4385 034330 737 013254 JSR PC CPYTRR “COPY REGISTERS 

4386 034334 012737 020 002174 MOV #46020, ETRCR s EXPECTED 

4387 034342 012737 000001 002176 MOV 1,ETRSR TED 

4388 034350 023737 002174 002164 CMP ETRCR,ATRCR ;TEST COMMAND REGISTER 
4389 034356 001401 BEQ 50$ ; 

4390 034360 005202 INC R2 * INDICATE ERROR 

4391 034362 50$: 

4392 034362 023737 002176 002166 CMP ETRSR,ATRSR sTEST STATUS REGISTER 
4393 034370 001401 BEQ 60$ 70K 

394 034372 005202 INC R2 : INDICATE ERROR 

4395 034374 60S: 

4396 034374 005737 002172 TST ATRBA :TEST BUS ADDRESS REGISTER 
4397 034400 001401 BEQ 70$ 70K 

4398 034402 005202 INC R2 ‘INDICATE ERROR 

4399 0344 70$: 

4400 034404 005737 002170 TST ATRWC sTEST COUNT REGISTER 
4401 034410 001401 BEQ 80$ 20K 

4402 034412 005202 INC R2 * INDICATE ERROR 

4403 034414 80S: 

4404 034414 005702 TST R2 :ANY ERRORS? 

4405 034416 001404 BEQ 90$ ; 

4406 71 ENUM = “D<ENUM + 17> > INCREMENT ERROR NUMBER 
4407 0344 ERRSOFT ENUM. MRWOFL,ERRS “REPORT ERROR 

034420 104457 TRAP SOF T 

4409 034422 00007 . WORD 

4410 034424 022621 WORD 

4411 034426 020102 WORD 

4412 034430 90$: 

4413 034430 PRINTF W#EMTTXT,#MEOT ;REPORT REWINDING.GOING OFF LINE 
4414 034430 012746 023771 MOV #MEOT ,-(SP 

4415 034434 012746 020473 MOV WFMTTKT, -(SP) 

4416 034440 012746 000002 MOV #2,-(SP) 

4417 034444 010600 MOV SP_RO 

4418 034446 106417 TRAP —— CSPNTF 

4419 034450 062706 000006 ADD #6,SP 

4420 034454 ENDTST 

4421 034454 L10026: 

4422 034454 104401 TRAP  CSETST 


* 
& 
Nm 
Ww 
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4426 
4425 
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TEST6 CHECK MANUAL INTERVENTION OPERATIONS 


.SBTTL HARDWARE PARAMETER CODING SECTION 


SEQ 114 


a ee 
me mm ee ee a —————_ ET 


CZTRAC 


-P11 


042504 
042504 
104 
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044526 042503 
044526 042503 
053105 041511 


L 9 
HARDWARE PARAMETER CODING SECTION 


MMIII LLL LILLY LLL ALLL LILLIA ILI IIT 
:/ THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 

/ ARE USED BY THE SUPERVISOR TO BUILD P=TABLES. THE 

:/ MACROS ARE NOT EXECUTED AS 

:/ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 

if MACROS ALL Ow THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 

SAITLITATATATATAT ALATA AAA III I 


SGNHRD 
«WORD L10027=L$HARD/2 


LSHARD:: 
GPRMA ADDRES,0,0,164000,175500,YES 
~WORD TSCODE 
-WORD ADDRES 
~WORD TSLOLIM 
~WORD TSHILIA 
GPRMA VECTOR,2,0,170,174,YES 
-WORD TSCODE 
-WORD VECTOR 
-WORD TSLOLIM 
-WORD TSHILIM 
GPRMD PRIRTY,4,0,340,4.7.YES 
-WORD TSCODE 
. WORD ean 
-WORD 34 
-WORD TSLOLIM 
~WORD TSHILIM 
ENDHRD 
~EVEN 
L10027 
-EVEN 
NLIST BEX 
ADDRES: .ASCIZ /DEVICE CSR ADDRESS : / 
CTOR CI1Z /DEVICE VECTOR ADDRESS : / 
yy eASCIZ /DEVICE PRIORITY LEVEL : / 
-EVEN 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


SEQ 115 


CZTRAC.P11 





mm aa ae ea —(C=“te Se 
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042520 


020064 
020065 
043040 


020114 
020122 


052101 


SOFTWARE PARAMETER CODING SECTION 


SULIT 
E SOFTWARE P MACRO 





;/ THE SOFT S 

;/ THAT ARE US THE 
:/ MACROS AR ARE 
:/ INTERPRETE THE 


BY THE SUPERVISOR AS DATA STRUCTURES. 
ef cpg ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
SO POLLLIL IDA LTTAL ATOLL ALIA AL ALITA 







BGNSF T 

~WORD L10030-LSSOFT/2 
LSSOFT:: 

“DISPLAY SFTTXT 

-WORD TSCODE 

~WORD SFTTXT 

GPRMD WCOUNT,0,0,177777.0,500.,YES 

‘WORD UCOUNT 

-WORD 1 oN 

. WORD OLI 

-WORD TSHILIM 

ENDSFT 

EVEN 
L10030: 
SFTTXT: PEATEDLY WRITES A 15 BLOCK FILE TO TAPE. / 

S THE FILES WRITTEN BY TESTS. 
ING ENTRY SPECIFIES HOW MANY FILES TESTS / 
THE DEFAULT IS 10. FILES. / 
4%! O WRITE FILES UNTIL EOT IS REACHED / 

WCOUNT: .ASCIZ /REPEAT COUNT FOR TESTS (0-500.), O=REPEAT TO EOT / 


~LIST BEX 
VEN 


-SBTTL PATCH AREA FOR DEBUG 


SEQ 116 


CZTRAC.P11 


035270 


035370 
035372 
035374 


035376 
035376 
035376 
035400 
035402 


30-DEC-81 11:08 PATCH AREA FOR DEBUG 


~SBTTL "'ENDMOD'' & *‘LASTAD"’ 
ENDMOD 


—_- LAST ADDRESS STORAGE APPENDED 


re 


ome ee ee eee 


B 10 


SEQ 118 
CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE ~~ USER SYMBOLS 
ADDRES 034512 6441 44604 
R = 000020 G 5814 
AINPUT 902204 26H (1301 1691 1694" 2138 2160 
i a ee a a ae, a a a eis 
men ome ee Tessas ag 
¢$33 265 20376 2940 2784 2854 3017 ab 3999 4095 4198 4228 = 4264 
nn corse OBO 
* 
och? of 2858 3031 3215* 3216 1003 4004 4099 4100 4196 4232 42 
ATRWC 002170 720# 1354 1390 1568 1465 1503 1540 1583 1614 1650 1686 1734 1771 
i; iva 1871 190 1944 2796 = 2866 3224 4108 4204 4236 4276 
par 002256 ize 1728 3565 
BITO = 000001 G 5544 8 8§=6822 826 838 84 854 85 87 874 888 899 903 
3195 919 930 934 525 949 535 565 974 377 2603 2841 3195 
IT00 = 000001 G 5434 554 
BITO1 = 000002 G 54c# 553 
BITO2 = 000004 G 5414 552 
BITOS = 000010 G 5404 551 
BITO4 = 000020 G 5394 550 
IT05 = 000040 G 5384 86549 
BITO6 = 000100 G 5378 548 
BITO7? = 000200 G 5364 8547 
1T08 = 000400 G 5354 546 
BITO9 = 001000 G 5344 545 
IT1_ = 000002 G 3534 1104 
BIT10 = 002000 G 5334 1050 1195 1236 «= 2734 4084 4082 = 4365 
BIT11 = 004000 G 5324 62709) 2714 2725 = 4384 
BIT12 = 010000 G 5318 2843 
BIT13 = 020000 G 5304 2843 
BIT14 = 040000 G 5298 
BIT15 = 100000 G 3284 861048 043 
BIT2 = 000004 G 5524 861077 1088 3957 3968 
BITS = 000010 G 5514 
BIT4 = 000020 G 5504 
BITS = 000040 G 5494 1106 2536 2631 $968 $i$e $813 4005 4099 4138 
BIT6 = 900100 G 5484 2283 ret} 2509 = 2510 520 521 2949 3641 3824 3955 
BIT7 = 000200 G 5474 861052 86941530 4361 4377 
BIT8 = 000400 G 5464 
BIT9 = 001000 G 5454 
BOE = 000400 G 5854 
BUSY = 000040 6614 
CHEKAC 014776 14094 3308 
CHEKAD 015142 1447# 3384 
CHEKAE 015316 1a5ee $e77 
CHEKAF 015462 152 514 
CHEKAG 015626 15 4155 
CHEKAV 016122 16 3063 
CHEKAW 016262 16684 3090 3853 


~_— 
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SEQ 119 
CZTRAC.P11  30-DEC-81 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS | C 
CHEKAX 016460 17128 3567 | 
CHEKAY 016636 1754# 3581 | 
CHEKAZ 017002 1790# 3601 | 
CHEKCX 017156 18294 005 3285 3361 3437 3502 3704 u 
CHEKDX 017276 1859# 3726 y 
CHEKEX 017416 18904 3296 372 3715 We 
a a ee ee ee ie ee a ‘ 
3326 460-3402 467 $8 1 661 789 8 909 41461 1366 We 
CHEK) 013664 11338 2559 wi 
CHEKL 013756 1159#@ 3129 3750 wi 
CHEKO 014254 12634 2824 98 3054 3116 3181 3261 3337 3613 3678 3562 3672 be 
CHEKS 014364 12974 2731 87 wi 
CHEKS1 014466 13¢54 $735 3877 wi 
CHEKU 014506 13384 43142 ©3762 
CHEKV 014636 1373@ «63155 «Ss 3768 «= 3892 wi 
CHKAG1 016002 16024 4175 x) 
CHKBRK 013442 1000 10634 2049 k 
CPWR 013324 1009 1127 11150 1439 478 1515 155 1746 1783 1821 2038 2382 2390 x 
2402 24640 538 2624 265 é 1 267 @79 7 é 879 x 
3033 © 3096 161 237 241 7 9 58 5 5 587 3652 , 
2% 46=so3985)—Ss—«i4017,'s«4029Sss«4054 Ss‘ G65 4072 41200 41 4137 4151S 4380 . 
CPYTRR 013254 9894 1108 1135 1160 1265 1339 s«137 1410 164 1487 1526 1568 1603 k 
1634 1669 1713 «17 1 3 1 1860 1891 192 2606 2612 2642 2683 x 
2736 2780 2849 #2885 290 m 3 4092 & 4225 4261 4292 8 
6326 6385 t 
CURDY = 000200 6634 
CSAU = 000052 3194 
CSAUTO= 000061 319% ©2311 
$BRK = 000022 3194 1065 
C$BSEG= 000004 31948 
000002 3194 
CSCEFG= 000045 3194 
C$CLCK= 000062 3198 
CSCLEA= 000012 319% 2324 
C$CLOS= 000035 3194" | 
C$CLP1= 000006 3194 
C$CVEC= 000036 319" 
C 000044 3194 
C 000051 3194 
CSDRPT= 000024 3194 
C = 000053 3194 ) 
CSEDIT= 000003 319% 410 
CSERDF= 000055 3194 
SERHR= 000056 31948 
CSERRO= 000060 3198 2386 2395 400 437 2534 543 2599 2629 2638 2666 2675 
2680 2762 771 776 1 1 ? 39 74 2979 2985 
2993 011 ‘ 1 $380 3085 3093 
yee Be Me Ue ae He ae a 
3311 321 $33 $37 $2 5 $3 $1 75 3580 3387 
3397 05 1 416 l 4 8 45 3 62 70 
3481 86 9 49 5 51 534 : 54 550 3557 
3562  %3570 57 584 591 96 6 4 9 75 
3699 3707 5712 71 (25 é 2753 8 65 5771 5 
3792 © 3830 83 84 By 856 868 3886 906 912 992 4069 





D 10 
SEQ 120 


CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE ~~ USER SYMBOLS 
4136 4144 4149 4158 4163 4171 4178 4184 4221 4256 4359 4369 437/, 
(SERSO= 000087 3198 2419 o8p 44 455 464 473 $e 7 491 $200 514 $252 $323 
= 3 
2617 2657 698 71 729 7 04 889 956 232 
Fe rts 7268 4012 4024 1088 4023 660 4116 4127 4313 4244 138 4316 
CSESCA= 000010 3198 
CSESEG= 000005 3194 
CSESUB= 000003 3194 
SETST= 000001 319% 2345 2915 3609 3802 3916 4422 
CSEXIT= 000032 3194 
C$GETB= 000026 3194 
CS$GETW= 000027 3194 
C 000043 3194 
CS$GPHR= 000042 319% 2268 
C$GPLO- 000030 3194 
C I= 000040 3194 
CSINIT= 000011 3194 2297 
CSINLP= 000020 3194 
C = 000050 3194 
CSMEM = 000031 3194 
CSMSG = 0000235 319% 1999 2016 2055 2070 2085 2100 2115 2129 2148 2170 
CSOPEN= 0000 3194 
CSPNTB= 000014 319% 2035 2047 eie7 ¢162 219 2211 2223 
CSPNTF= 000017 3194 1084 1248 964 4078 44) 
CSPNTS= 000016 3194 
SPNTX= 000015 3194 
C$QI0 = 000377 3194 
000007 3194 
CSREFG= 000047 3194 
CSRESE= 000035 319% 2705 
C$REVI= 000003 3194 409 
CS$RFLA= 000021 3194 
CSRPT = 000025 3194 
CSSEFG= 000046 3194 
SPRI= 000041 319% 2282 2508 2609 2623 
C$SVEC= 7 319% 2290 
CSTPRI= C0001 3194 
DFPTBL 002142 G ae 
DLX 202220 7384 =6©1019* 1022* 1024 2723* 2847 3061*  3994*  4030* 
OLXBEL 002226 7414 4030 
DLXLNG 002232 7434 3193 
00222 7408 2723 
DLXRW 002222 739# =§=1022 2847 3061 994 
DLXTOF 0022 7424 = =61019 1086 12 966 4080 
DOILC 013206 9748 2554 
EF .CON= 000036 5614 
F .NEW= 000035 G 5624 
-PWR= 000034 56 
EF .RES= 000037 G 5604 
EF ..STA= 000040 G 5598 
EINPUT 002206 727#@ = =61302* 1690" 2137 2159 
EMUM = 000061 40478 
EM2 020766 1199 22378 
EM2A 021040 1209 2043 22378 
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SEQ 121 


30-DEC-81 11:08 


CZTRAC.P11 


—_- al 


= 22 2 &® 
WAPI OO OR UO 


KRMrNODdMOa@wtuo 
-—- TF OOF ODO 
ere CNC a 
a wR 
~w ROMA WRK 
wo —PMOdO~T ODO - + 
~) eee — CUCU a 
& 2 
@ ny aicur Nene sO 
w NUAACUR Oe hw rR N 
oa —-MOO Tr OO0Orr) 
~w eee CUCU) A 
2*x 22 = 2 ® 
~--OrKw pe Pe, we, ae 
MO OMrnwwowwrnnOowwovr 
CK ee tnaner a 
CUCUCUICUQIY ce = CUCUCYIS) oF oP 
R&h aa *, 
MIPIM CUA OO OO 7 TF OOM 
MSIONICUCUCUR OMIM DO TMOCOPrM) 
OUNNINICGIOUM er CUCU er or 


WOT OVOe 
cae tS 
St tat 
Sooo0o0co 


xseeeweser#e## 
MOA owonm 


Ce eee eh oe ee ed oe el 
ee ee e228 ¢ 
eh eel eek oe ooh ool oe eel iO 


.f sé x<«e«e«?@ 
 VSSSS2SS 
CUP & i CUR. CUR. © 


tooth aoe pool suid cell sul sell eel 








. 
o sow rh 
E —s& Baga aass 
CFSE NE KKK Vs 
$ g beshh Sebss 
toad wv CPSC ENGE SKK VT 


4015 
1819 
3683 
1795* 
342 
604 
3 
095 
346 
837 
239 
100 


2756 = 3032 
1787 
3553 
1729 
1340* 
1571 
ee 

1 
263 
696 
094 


RRR SeonSSS 


SP OIE ee OUT 


1744 
4411 
3489 
1682 


a AJ ee * a ot 
eO~u wT ~ — ORC OO 
~ D4 mo CW 
We-w ESE OM Per tm 
a @® On & y oms~o 
= 
\* al ped wor womo 
Sor ~ SIAR SUMAN One 
NeEewsr mM Ce CUPS ee OS 
ny | Ste Sn ott Ss 
ted et eel _- 
own MUDAONO CO OOmcO 
Mntucucy TMH FT FOV Tr wT 
Ver ws CP SF CUI ee OU 
an ca es  @«& 
VMN TR. pA a — dae pale hay ep 
Nee Ow MICO — Oe On 
ww -~ PN PRON PR TO 
et Ae eee ee CUI ee CUP 
zs<e«« ao fe *" * 
Leon Mo FO TRP NOOO 
Seah aud ead ON OMWN ee Me 
ah” ah ed SVR FR. OOK FARO 
Netre ry eM er EOP Ee MS 
cs 6 exe ma * 
AUR We O s At FOCMODOMN 
Gor rr co cG eT OUMNOR NR CUW 
pat > pad 4 MD = FF OO DWE ~F OOO 
ee Mce em ON OU EP mm ee CU 


w= FF OOK. Cie ~F ODO 


Neen > sow 20 > - 
Ce ceed 
New ee ee OUP eee CU 


e@Qeeeee eee ee eee & 
~ORMRWNR OOK KE MAR OW K—-MOOAAOOR DWP. TT ODP. CUR. v7 ODP 
NN EK OE NM OO GUY ONO eK WFO eee 
oOo oOo oO Ob YUVUUVUVUVUVUYVUY WV 
~ oOo wt w NM oOooVwovrwn wT . *) 
rr ef f- - Bm ~~ -—- fe BART oe = 
NUNN ON Om nw So ig ™N ™N 
SSSSESE SSsoo Ssossss & 5 
oO Sooo OOoO°COoOOo 
3 — uw a 
Ce 
= = xeaxneaeacae Zoom a % 
ive) tw lu Ad ad as as as as ta ta ad tas A as ts ts Le) au 
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CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE ~~ USER SYMBOLS 


ETRWwe 002200 sog7e $285. «288° «TERR. SRR 1397s 1340" 
1550, 1e85"ieSze 1908 Phe | 2786 obs Se 
4328 4341 
EVL = 000004 G 5504 
ESEND = 002100 3198 
Soe Ontb3 1080 23870 
FMTTXT 020473 ooo St 5032 2006 ~=2237H = 3961S: 4075 
FMT31 020500 2140 2162) 237" 
FMT51 020566 $189 52398 
FMTS2 020653 $208 «99378 
FWBOO = 000002 6578 
FNBOT = 6588 
FNBO2 = 000010 6594 
FNBOS = 000020 6608 
FPTS = 000004 677# 2425-2952 (3643 
FSAU = 000015 3198 
FSAUTO= 000020 3198 2308 + ~—«-2310 
= 000040 sion (322 1972 19952011 2026 
2248 2262 28082821 2842 é § 
$515 $951 4421 4487 4678 4481 450 
FSCLEA= 7 319 «2321S 2393 
F$DU = 000016 3198 
FSEND = : 3198 322~=«21979 2000 17 6207 
2298 2312 2825 842 é 6 78 
$801 0 851 391 317 1 = 442 
= 000004 3198 4437 4456 
= 000013 3198 «486 COt«C« 
FSINIT= 000006 3198 2262 «2296 
FSIMP = 000050 3198 
= 000000 3198 322 «4507 
FSMSG = 000011 3198 «©1995 2011 2015 2026 054 
2108 «=2114~Sts«212 128 3135 514 154 
FSPROT= 000021 3198 5248 ©: 325 
FSPUR = 000017 3198 
FSRPT = 000012 3198 
F$SEG = 000003 3198 
FSSOFT= 000005 319# 6478 «4&4 90 
F$SRV = 000010 3198 1972 +1977 
F$SUB = 000002 3198 
F$su = 000014 3198 506—Ss«S12 
FSTEST= 000001 3198 2363 «2344 «= ««2379 S294 «= 2949-3608 
GEOT. 012600 B70# 4152-4376 
IT = 000001 6568 260 
GOEOT = 001026 6454 87 
GSCNTO= 000200 3198 
GSDELM= 000372 3198 
¢$D1SP= 5 3198 4481 
GSEXCP= 000400 3198 
ESHILI= 000002 3198 
G$LOLI= 000001 3198 
G$NO = 000000 3194 
GSOFFS= 000400 319% 4460 4465 6650 4486 
¢SOFSI= 000376 3198 4460 «©4550 BG 
CSPRMA= 000001 3198 4440 ©4445 


i 


4415 


3914 


S914 


4423 


3168 


3639 


3915 


1758* 
4295* 


2094 





1771 
4308 


SEQ 122. 
| | 
| | 


2154 
3821 


4421 





CZTRAC.P11 
GSPRMD= 000002 
GSPRAL = 
GSRADA= 000140 
GS$RADB= 000000 
GSRADD= 000040 
GSRADL= 000120 
GSRADO= 000020 
GSXFER= 000004 
GSYES = 000010 
HELP = 000000 
HOE = 100000 
IBE = 010000 
IDBF = 000020 
IpDU = 000040 
IER = 020000 
ILCMD = 040000 
ILCOO = 000000 
ILCOS = 

ILCOS = 001012 
ILCO6 = 001414 
ILC11 = 000022 
ILC12 = 000424 
ILC14 = 001030 
INHBT = 000001 
INPUT 006322 
INTENB= 000100 
INTFLG 002240 
INTIN 017720 
ISR = 000100 
IXE = 004000 
ISAU_ = 000041 
ISAUTO= 000041 
ISCLN = 000041 
ISDU = 000041 
ISHRD = 000041 
ISINIT= 0C0041 
ISMOD = 000041 
ISMSG = 000041 
ISPROT= 000040 
ISPTAB= 000041 
ISPWR = 000041 
ISRPT = 000041 
ISSEG = 000041 
ISSETU= 000041 
ISSFT = 000041 
ISSRV = 000041 
I$SUB = 000041 
ISTST = 000041 
JSJMP = 000167 
LDPTS = 000040 


LINPUT 002210 
LOE = 040000 


ag aa 


AAG 


G 


30-DEC-81 11:08 


5884 


VLLVLLLVleVLs 


Nm 
AIA IA CA I © UY 
es on a on ey 
r @ 
Lee 


— 
eeYRELLLLL SLY 


4484 


4445 


4445 
451 


2601 


4450 
445 
47 


1326 


2606* 


G 10 


CROSS REFERENCE TABLE =~ USER SYMBOLS 


4484 
807 
1377 1413 1451 1672 1692 
2613 
174 é 564 20644 20714 
1550 Ary 3a 21714 
3638 3821 3951 
369) 397, 
4# 29164 29484 36084 
44218 44234 
3074 3102 3167 3247-3323 
2161 


1694 


20794 


36104 


3399 


1795 


36384 


3464 


2157 


38014 


3528 


SEQ 125 


—_——- — —  — - -- 


2605 


2101# 


3658 





CZTRAC .P11 





30-DEC-81 11:08 


ADAQAAAAAAADAAAAI AAD AADAAIDMAAaDNAAIDAIAAIDAAAIMIAAAAIAIAIAAIAAAAAAAAAAG 


2265* 


23084 
23214 


7974 


4644 


7884 


712A 


H 10 
CROSS REFERENCE TABLE =~ USER SYMBOLS 
2267 


44384 


4854 


44798 


5074 


ee ee 
———— 


-_ oo a re me mn ee ee 


a ea eee 
_ 
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CZTRAC .P11 30-DEC-81 11:08 CROSS REFERENCE TABLE -~ USER SYMBOLS —— 

L10003 01774 19984 

L10004 01775 20154 

L10005 02006 20544 

L10006 020100 soote 

L10007 020116 0844 

L10010 020134 20994 

L10011 020156 21144 

L10012 asese> 21284 

L10013 020242 21474 

L10014 020322 21694 

L10016 024176 22964 

L10017 024200 23104 

L10020 024202 3234 

L10021 024204 23444 

10098 081314 5008s 

L10024 36 38014 

2 39154 
44218 
4437 44578 
4478 44914 
2237H 4414 
1780 22378 
1953 22378 
1592 22378 
22374 2527 
22357H# 2516 
22374 2561 
2237# 2619 
22374 4118 
22374 
22374 2876 
22374 4051 
1743 SSec" 
22374 2755 
2237H 2720 
22374 2731 
136" 1475 1512 1549 2237 
# 

1312 22378 
1880 [ec 
22374 4318 4351 
1399 22378 
1818 22378 
1702 $500" 
22378 96 
2237H# 4246 
22378 
22357# 4074 
22378 
1124 2237h 
22357H = =—2421 
22374 4410 
1363 22378 
2237H = =4214 
1659 22378 





ae ee eee ele —_——< a ee 


J 10 





SEQ 126 
CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE == USER SYMBOLS 
MSRLPF 023562 22378 $806 
MSRVFL 021774 1912 2378 
MTEF = 020000 6884 
MTRDY = 00 $968 1203 1564 
MUNOF L 9s 545 22374 4040 
MWEFET 2237# 4286 
MWEFFL 022413 1176 § hl 
MWELPF 022437 22378 00 
NFL 025543 c237H# 864014 
MWILPF 022504 1281 22378 
MWIPLF 022245 22374 3031 
MWLPFL O02 22374 2659 
MWNXFL 023012 22378 
MWPETF 02330 1623 22378 
MWRTFL 021755 1850 22378 
MUTOFL 022751 22357H 3234 
MXCFL 021402 22374 2502 
MI6CFL 021235 22374 2457 =: 
MI6SFL 021174 22374 2448 2485 
MI7CFL 021337 22378 2475 
MI7SFL 021277 22374 2466 2493 
021057 1244 22378 
M2A1 021140 2031 2237# 3982 4026 4062 4129 
NEWLIN 020470 22378 
NOTR79 012362 8074 
NULERR 020432 1996 2052 2067 2082 2097 2112 2126 2145 2167 22194 
= 000700 6814 
OFFLN 012532 8544 4033 
OFLINE= 001436 6494 8 
ONLNS = 002000 6854 
OUTPUT 002262 7734 886 961 1298 1938 3197 3202 3210 
OSAPTS= 000000 3194 392 
OSAU = 000000 3194 424 
OSBGNR= 000000 3194 418 
OSBGNS= 000001 3194 3478 384 
osdU = 000000 3194 426 
OSERRT= 000001 3194 3478 434 
OSGNSW= 000001 3194 3478 38 
OSPOIN= 000001 3194 7h 450 
OISSETU= 000000 3194 78 4509 
PATCH 035270 44994 
PNT = 001000 G 5 
PRI = 002000 G 587# 
PRIRTY 034571 4451 44604 
PRIOO = 000000 G 575 
PRIO1 = 000040 G 574 
PRIO2 = 000100 G 5738 
PRIO3S = 000140 G 5724 2608 
104 = 000200 G 5714 
PRIOS = 000240 G 490 5704 767 
= 000 G 5694 
PRIO7 = 000340 G 5684 2281 507 $oee 
PRTREG 00 ase 2066 2081 096 156 21754 
PS 1 6 





A 





K 10 









SEQ 127 
CZTRAC.P11  30=DEC-81 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS 
RD 012756 9154 3089 3154 3307 3383 3600 3725 3767 3852 3870 3889 4223 4322 
RDCNT = 001000 6844 
READ = 6364 918 
REWIND= 001020 6428 B25 
RPEF = 100000 6904 
RPTCNT 002152 509# 2292 2294 3689 3858 
RWDS = 000002 6764 
RWIND 012416 Bee 2391 2403 2539 2654 2671 8767 28172970 3042 307651045169 
3249, 33253401 3466 $0 3660 3788 34 8 4140 % 4381 
RWWAIT 013354 10224 «©1134 «3159's 1264=Ss«1338)=— 1373 ' «14 14647 14 1523 1561 1602 ©1633 
1668 «17121734 179118291859 1890 1928 2 2611 3984 4028 4064 
4091 4131 4167 4187 4226 4260 4291 43 4382 
SBIT8 = 000400 6644 
SBIT9 = 001000 6658 
SFPTBL 002152 G 5084 
SFTTXT 034642 4482 44938 
SIZTAB 032000 3691 37944 3860 
SPACER= 001410 6384 933 
SPR 013024 930# 2779 3060 3141 3295 3371 3448 3714 3761 «46186 4290 
STEF = 010000 6878 
SVCGBL= 000000 $194 322 329H 365 374 75 ve 379380381 
382383384 : 7 88 1 392 393 3% 
395 39i(ité«i7:SCti«é 9B i 401 406 «405s 4.06 
=m Om hCUhmrhlC lUCU CUP 41 419 421 422 
623 tesi(<ié‘im SCG si(ié‘i RCC 432 34 435 
4 ~~ ¢ 439 44044] 64 $4g 447 48 
449 64 46548548 50 rig 7) 789 
797 -798-~=S—«1972 «1973 (1995 2011 2067 2064 = 2065 «2079 
20 2 g 21093 1 21 2155 2248 += 2249 
2262 2263 «= 2308 1 64 4480 4311@ 4312 
SVCINS= 000000 3194 326# 366 ? 37%, 0375 (86 
377, 378~—Ss«379 1 386387 389 
391-39 9 400 «401s G82 
403. 404—Cti(ié«KO i i 4 41 413 41Ki(ié«‘ dS 
416 417 418 1 se] 48 4 4 427 «428 
4 300431 4 r 4 4 440 441 
a: ae: * Se 447448 664 4650 466 
467 468 469470 é y 789 790)—i—791—i(is7B 
803 8046 1065 1 10811 1085 108 1244 1245 
1246 1267 1248 126 1 1 16 2017 2031 2032 
2055 2034 = 2033 2036 7 2068 2049 2055 
2056 2070 2071 101 1 2130 2137S 2138 
2139 «2140 2141. 2142 44 3143 21 2160 2161 2162 
2165 2164 2165 2166 17 171 1 2192 219321 
2 2205 2206 1 2220 2221 «= 2222 
2223 © 2226 2 ? 9 ? B87 
2289 862 1 1 . e 2 
2387 2393 2396 4] i 2430 2431 
2432 ©2433 243 4 44 y 2457 
2439-2464 2465 466 468 3h 77 2483 BA 
2485 2686 2687 2491 4 494 502 2505 2504 
2507 2508 2509 2514 31 2] 355 $898 S809 
2534 2535 2543 2546 5 59 563 99 2600 
2608 26 261 617 1 620 2630 
2638 2639 5 658 ’ 676 1 
2698 2699 2700 01 2721 ave 729 





eee | ae res eee + 


SEQ 128 
CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE =~ USER SYMBOLS 




















730 731 732 733 753 754 75 
776 2771 804 , 06 07 18 
2832 833 9 ys ys 5 7 
2893 906 907 : 9 1 16 
2964 % 974 9 979 9 
3007 011 012 0 9 030 0 
3052-3057 05 6 6 é 
3100 = 3101 108 1 113 1 1 
31390-3145 146 151 1 6 1 
3184 3185 191 19 
3258 4 ©6-_- 3259 5264 6 0 
3394 3399 09 4 5 1 4 
3340 460-3341 334 46 5 § 
3376 «=. - 3380—Sf—s«3;3887 g 0 
3421 3422 $428 429 4 41 
3463 3470 471 475 4 6 1 
3505 3506 3510 511 51 € 
3546 3550 551 557 558 5 0 
3591 3592 596 597 04 1 
3656 460-3657 5 9 26 
3700  3707—=«(3 08 12 13 
3745 3746 375 54 4 
3793 3802 3 30 1 
3868 3869 3876 
3961 396 1 
4012 = 401 4014 4015 4016 4 
4042 4069 4050 4051 4 38 
4070 4074 4075 40% 4077. 411 
4127 4128 41 4131 4136 4149 
4163 41642 4171 172 4178 3 41 4213 
4221 4222 6264 626 4g 4267 4 
4288 4316 4317 4 18 431 é 4352 
9 6370 6374 437 44 4414 
4418 6419 442 442 44 462 
4466 6467 6668 666 44 4451 445 
4479 6681 46 4683 4484 4685 4489 
SVCSUB= 000000 43000 +3 be wesc 
V = 
— sbss §—20a9 «2070 «208 «ks (20 th tt at ST 
a3 370 Base Goer TOBE $334 aus ele 2915 
SVCTST= 000000 Bits 327H «234 2343 378 $359 29% 3639 3821 3822 2951 
SSLSYM= 010000 3194 * 865138 1 55a 2115@ 21298 21488 
21708 22978 23118 23248 23658 oo ike ety aes 44 44928 
re siege es 
= © 
TESTA 013402 828 844 860 890 905 921 936 951 965 980 10448 
TESTC 013446 10764 201 4019 
TESIN 99860 —_ — 
“—s eH ke he oe eee ee 
3162-3175 $34 25 1 31 34 33 3366 
3377 339% 265 3418 rai hd 45 472 48 95 303 3523 3536 


LLL LLL LLL = -< 


TT LL — _— 


mM 10 





SEQ 129 
CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE =-- USER SYMBOLS 
547 559 574 588 59 5 3677 (369 3709s «33720.-'s—«37420—Sts«37755 
5783 3837 840 846 3308 3833 3888 2946 4 30 4168 2483 4218 4253 
TESTNN 014166 12334 2028 397 4020 
TESTNI 014214 16s 4056 412 
TEST2 024206 798 
TESTS 031316 6394 
TESTS 032040 38224 
TEST6 052344 39528 
TPTS2 020454 2207s «22324 
2250 764 82 840s 856s 87 « 8 901% 917 9328 9678 961% 976% 999 
2277 2605 2865" 2882* 288 3197* 3202 
TRCR 002242 7614 825% 826s B4is 42% 57* » 873 g74s 887* 888 2 903« 
918% 919% 933: 34 48 49« * . ree 1009* 1010 1048 
1050 ©1052 1203 1205 25 1562 1564 15 1973* 22 2271* 2283*  2380* 
2441% 2442 2451% 2452 460* 2461 gi Je 34 24780 47 2688 2496* 2497 
2509* 2510 $20" 2527 61 « 2706*  2709% 2714 842* 2843*  2846* 2949s 
3198* 3199 41x 3824s 55* 404 4384 
TRPRT 002254 767#@ 2279s 2286 
TRSR 002244 7624 4 «=6822e «= «8 38e «= «54% = B70 . 99 915* 930 945 974« 997 
1077. 1088 ~«=60—1104~=Ssi«é1106@—s's—i‘29 1 73* 388 425 2536 603* 2631 2 
2734 2764 2819 e841 95 Q 0 074 102 16 195* 3267 3323 
3399 0-34.64 328 $45 $5 7 3 4 832 7 3957 _ 3 34 
4082 4138 4153 4361 4 43 
TRVCT 002252 7664 2278* 2288 
TRWC 3=-_-« 002246 7634 «6. 823% «= «39% = 5S 71* 885° 900s 916s 931% 946% 960 975" 998 
2275 2604* 2844% 2899% 2900 31 32018 
TR79 002000 G 3224 
TSA = 000172 6254 
TSR = 164002 6214 
TSTINT 025066 25748 
TSTRDY 014114 12034 20460 3989 6066 4133 
TVA = 000170 6244 
TWAIT Hy 4; 10194 
TwC 164004 6224 
TSARGC= 000002 3664 3674 368  %3694 ###(%3708 3714 10804 1085 | 12444 12469 20318 2036 20434 
204 2137# 36021442 2159H = 2166s 189K 21 22 2212 «22208 «= 2224.'i(isié‘ KH = -3965 
40744 4079 44144 4619 
TSCODE= 000052 44408 646654 4646508 44818 46 
TSERRN= 000071 3194 24204 24308 gure 24 24654 6768 2484s 3498 25014 25158 25264 25608 
26184 26584 2699 27194 7548 8054 8754 29074 29578 30308 32338 
36484 39814 40134 40254 460394 4050# 40614 41174 41288 42134 4265# 4285@ 4317# 
TSEXCP= 000000 44408 44646 6464654 64449 46508 4455 44848 4489 
T$GMAN= 000000 3194 
TS$HILI= 000764 446408 64663 64654 4448 44508 4454 446844 4488 
T$LAST= 000001 3194  4509M 
T$LOLI= 000000 44408 464462 66654 6647 64508 4453 4484e 4487 , 
TSLSYM= 010000 3194 494 513 1978 1999 2016 055 2070 0 2085 2100 «2115S ss 2129's—«é KBB 
170 2297 2311 2326 2345 1 609 916 4422 4458 4492 
TSLTNO= 000006 45124 
T$NEST= 177777 3194 3224 6864 64934  S06# 512 19984 20 
20544 20644 20694 20794 20844 094 10 g14e 21228 é 
2484 22534 968 “ 104 3314 23 34 
8228 154 y) Me Pal Bek, ee 4 


114 20154 #2026 
ico 21358 21478 
re 23448 798 


29144 29498 $608 44788 44908 





Am mw ee mw a ee em em rr ere -_—_—- 


N 10 





SEQ 130 
CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE == USER SYMBOLS 
TSNSO = 000000 430 4507 
TSNS1 = 000005 4844 493 5064 512 19724 1977 19954 1998 0114 015 02 54 20644 
2069 20794 2084 0944 4 1084 gii¢ 4 ] 1 1354 14 1544 216 
22484 836 2253 22624 638 O84 3] 7514 3 434 344 3794 4 29494 | 
3608 36394 3801 Zen 91 S24 = 4421 44374 6656 44784 4490 
TSPTNU= 000000 3194 
TSSAVL= 177777 3194 
TSSEGL= 177777 3194 
TSSUBN= 000000 3194 23424 23784 29484 36384 39514 
TSTAGL= 177777 3194 
TSTAGN= 010031 3194 4844 S064 19724 19954 30568 0644 0794 2 ¢1084 21224 21354 
21544 22484 22624 23084 23214 4 9494 394 Scot 9524 7 447 
TSTEMP= 000000 4654 4664 4674 4684 $998 714 rite 124 19774 9984 20154 20544 
20694 20844 20994 21144 21284 94 $42 22964 Of 23234 23444 29144 
36084 38014 39154 44214 44404 44504 4 + 44844 64904 45074 
TSTEST= 000006 3194 23424 23784 29484 36384 514 451 
TSTSTM= 177777 3194 1065 1084 1268 199 35 047 55 070 2085 2100 2115 
2129 2143 2148 216 $128 11 o¢3 68 282 § 2297 2311 
2324 2345 2386 2395 4 9 29 4 44 455 464 2673 2483 
2491 2500 2508 2514 5 43 549 55 599 2 2617 2623 
2629 2638 2657 2666 675 3 oy? 2718 729 2753 2762 2771 
2776 2804 2813 821 827 3 4 he 2915 
2974 2979 2985 993 11 29 305 3057 
3072 3080 3085 093 100 13 119 126 3132 3138 3145 3151 
3158 3165 3173 3178 18> $36 45 3258 3264 76 
3281 3288 3293 3299 304 4 29 34 3340 3345 3352 3357 
3364 3369 3375 3380 $256 5 og 3416 21 3428 
3445 3452 3462 3470 75 6 9 98 3505 3510 3517 3526 
35 3539 3545 3550 557 5 577 584 3591 3596 
3647 3656 3668 75 7 99 707 3712 3718 3723 
3734 3745 3753 3758 65 792 2 3838 
3856 3868 3876 3 3906 $ 916 964 3980 2 4012 4024 4038 
4049 060 4069 4078 4116 4 4136 4144 4149 4158 4163 4171 4°78 
sigs 4212 4221 4244 4256 42 4316 4349 4359 4369 4374 4418 
TSTSTS= 000001 319% 23434 2379% 29494 36394 38224 39524 
TSSAUT= 010017 23084 2310 
T$$CLE= 010020 23214 2323 
= 010027 44374 4657 
= 010000 4844 493 
TSSINI= 010016 22624 2296 
S$MSG= 010014 19954 1998 20114 2015 20264 2054 20644 2069 20794 2084 20944 2099 21084 
2114 21224 2128 21354 2147 21544 2169 
010015 22484 
= 010030 44784 4491 
TS$SRV= 010002 19724 1977 
T$$SW = 010001 5064 512 
TSSTES= 010026 23434 2344 2379H 2914 29494 3608 36394 3801 38224 3915 39524 4421 
T.EDF = 000001 6984 
T.EHRD= 000002 6994 
T.ESF = 000000 6974 
T.ESFT= 000003 7004 1122 1174 1212 1279 1310 1361 1397 1434 1473 1510 1547 1590 
1621 1657 1700 1741 1778 1816 1848 1878 1910 1951 
T1 024204 G 465 23424 
T1AG 033154 41234 


B 11 


CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS 


TIAJ 032636 4030# 
TIAK 032720 40554 
TIAL 033154 41224 
TIAN 03336 
T1AN 8 51 42178 
T1A0 0 42528 
TIAP 03374 42894 
T1AQ 034066 43214 
TITAS Oesaes 39874 
T18 O52 2 395 
TIC 032604 
TIP 032650 40328 
T1710 034216 4355 
T2 024206 G & 23784 
T2AB 026120 28094 
T2AT 025722 275 
2 026420 28814 
T 026460 28974 
Tec 024360 24248 
T 024410 243598 
T2E 024640 25054 
TeF 024674 25198 
T2G 025514 27044 
Tél 024214 23814 
T2J 024722 253 
T 026522 G 467 29484 
T3AC 027740 324 
T3AD 030166 33164 
T3AE 030414 33924 
T3AF 030616 3457 
T3AV 027014 30344 
T3AW 7130 
T3AX 031020 35214 
T3AY 031176 35728 
T3AZ 031234 
T3C 026534 29514 
T3H 026662 4 
T3L 027222 30954 
T30 026564 
T3U 027344 344 
T3V 027374 31474 
T 027424 31604 
TS 031316 G 68 36384 
T4EX 031752 37824 
T4XX 031 904 3776 
T5 032040 G 469 38214 
TSAW 032116 38454 
T5XY 032154 3859 
T52A 02070 2232 22378 
15 02071 2232 22378 
T52C 734 2232 2378 
52D 020751 2232 374 
16 032344 G 470 514 
UAM = 000200 G 5844 
USFA 002212 7298 977s 978 2 


USEB 002214 7304 885 900 36. 231 2500. 1599 1637 


1673 


1724 


1894 


1934 


SEQ 131 


— _—_ o— 


2640* 


A TC CT TT EE LL LL em 


CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE -- USER SYMBOLS 
‘ 2778* 4s 988* 001* 059* 140* 153* 186* 7i* 85* 
Cm me Me aa 
682* 692* 760* : 1* 861* 885« 4173* 4191 4258* 4295 4328 
USEC 002216 7314 901 3565* 99% 
VECTOR 034540 4446 4460 
WCOUNT 035206 4485 449 
WEOF = 001034 64 948 
WIDB = 000432 6474 841 
WPEF = 040000 6894 
WRITE = 000402 6354 887 902 qohe 3198 
WRT 012642 8844 2641 3002 284 3360 3436 3501 3701 4174 
WRTC 012710 8994 3566 
WTEOF 013072 9454 268 3128 anne 4259 
WTIDB 012464 sean" 282 2981 013 3053 3115 3180 3260 3336 3412 3477 3541 
WWAIT 013362 1020 10234 2724 2848 3062 3995 4031 
XBA16 = 010000 
XBA17 = 020000 6694 
XHDR 346 2109 2123 2176 21884 
2111 2125 2178 22024 
3194 
3198 
3194 
3194 
3244 
3254 


3154 7734 7904 8034 8074 22384 45004 





—_— << ee - 
— <eseees oe -ee eee 


ee 
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CZTRAC.P11  30=DEC-81 11:08 CROSS REFERENCE TABLE -- MACRO NAMES 
BCOMPL 3198 
BERROR 1#@ =. 3198 
BGNAU 1# §=—- 3198 
BGNAUT 1#@ «= 3198 = 2307 
BGNCLN 1g 3194 2320 
BGNDU 1 =. 3198 
BGNHRD 14 3198 4436 
BGNHW 1#@ =. 3198 = 483 
BGNINI 1#@ = 3198 = 2201 
BGNMOD 1#@ = 3198 = 321 
BGNMSG 1#@ 319% 1994 2010 2025 2063 2078 2093 2107 2121 2134 2153 
BGNPRO 1#@ «319% = 2247 
BGNPTA 1# = - 3198 
BGNRPT 1# =. 3198 
BGNSEG 1# =. 3198 
BGNSET 1# = 3198 
BGNSF T 1@ = 319# = 4477 
BGNSRV 1# = =6319# ~=—«:1971 
BGNSUB 1#@ =. 3198 
RGNSW 1#@ 319% 505 | 
1#@ 319% 2341 2377 2947 3637 3820 3950 
1# =. 3198 | 
1# =. 3198 
1#@ 319% 1064 
1# «=319# = 2704 
1#@ = 3198 
1# =. 3198 
1# =. 33198 
1# =. 3198 
1# =. 3198 
1# =. 3198 
1# «6 3198# = 76 
1# 319% «787 
1# 86319% = 462 
1# 319% 4480 
1# = 3198 
1# =. 319 
14 =. 319 
1# =. 319 
1# 319% 2309 
1# =. 319 = 2322 
1# = 3198 
1# = 3198 
1# = 319% = 4455 
1# 86319# = 492 
1# = 3198 =. 2295 
1# = 319% = 4506 
14 3194 1997 2014 2053 2068 2083 2098 2113 2127 2146 2168 
1# = 319% = 2252 
1# =. 3198 
1# =. 3198 
1# = 3198 
1 = 3198 
1# = 319% = 4489 
1# = 319% )=—:1976 
#3198 





SEQ 133 


E 11 








SEQ 134 
CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE -- MACRO NAMES 
ENDSW itd 3194 511 
ENDTST 14 313 2343 2913 3607 3800 3914 4420 
ESUALS 14 194 324 
ERRDF 14 3194 
ERRHRD 14 3194 
ERROR ‘2 th 2385 394 $335 2436 533 54 yt 358 $38 $37 5 674 679 
2761 2770 2775 812 820 be6 oa Se 9 97 9 84 
3010 3037 3045 050 926 6 071 0 084 09 99 107 11 118 3125 
3131 3137 3144 3150 15 164 346 177 1 1 44 $2¢ $3 $ 3268 
3275 3280 3287 3292 $o0 303 31 799 3 33 9 4 51 3 3363 
3368 3374 3379 3386 96 404 44 4 4 $ + 3451 3461 
3469 3474 3480 3485 492 497 504 509 228 525 5 5 544 3549 3556 
3561 3569 3576 3583 590 595 603 $23 $6 8 § 4 79 3698 3706 
3711 3717 3722 3728 733 Sone 752 57 64 4 85 91 38 3837 3842 
3855 3867 3875 3885 905 911 3991 4068 413 4143 4148 4157 4162 4170 
—_ — ‘ie 4220 4255 4358 4368 4373 
ERRSOF 14 319% 2418 2428 2445 2454 $683 47 $$ ¢ $$ 499 $313 q2e6 
56 2697 2717 2728 2752 2803 3 8 95 28 231 3979 _ 4011 
4023 4037 4048 4059 4115 4126 4211 424 4283 4315 4348 07 
1# 3194 711 
14 3194 
14 3194 
14 3194 
if 319# 
‘* 3194 
‘# 3194 
14 3194 
1# 3194 
1s 3194 
14 319% 2266 
lf 3198 4439 S444 
1# 319% 4449 4483 
# 3194 
14 3194 364 
4 3194 
14 3194 
14 3194 
4 3198 
14 319% 4507 
4 3194 
14 3194 
- Soe 3654 371 372 373 
it 3194 44408 44458 44508 446848 
ie 3194 10808 12444 sh 2 2137# 21598 21 22044 2 39608 40748 44148 
14 3194 3654 374 16 7 380 ie 390 392 394 396 
398 400 402 4044 4 40 411 4] 416 41 4 see Sy 426 428 
430 432 434 436 4 oon se 444 4% ‘ ’ 
MSDECR 4 3194 4934 At 1977# = 134 548 4g6 rag cy 21148 821288 21478 21698 
22534 22968 2310# 232 23444 29148 8a @ S# 44218 3 (44568 44908 45078 
319% 44408 44458 445 &S 
1# 3194 4934 5124 19774 99 154 0334 ¢ bed ¢ 2 21148 21288 21478 21698 
22964 23108 23258 3444 144 ORF Ol" d 4 ¥ of 44 45078 
RRI 14 3198 26198 4298 46 4554 ane 47 $8 & ¢2 ¢ 14a 5254 $3208 26178 
26574 26984 271684 7298 75 8044 8748 88 568 0 2328 7a 40124 





CZTRAC.P11 


MSGNIN 


30-DEC-81 11:08 


40494 


44404 


40604 


4445a 


2 


LA 

og 
Sa 
Re ae 


41164 


44504 


41278 


44844 






42128 


VR=BOU 
LSESUSSES a 


ro 


F 11 


424464 


CROSS REFERENCE TABLE =~ MACRO NAMES 


4284m 


=e 


= 
Roe 


Ss 





ee 


aw 
a 


43164 






~ 
Se 
oa 


eearaeaass 


ng 


43494 


44084 





SEQ 135, 


i 


G6 11 





SEG 136 
CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE ~~ MACRO NAMES 
41718 41784 41844 A 42134 42148 HEY 1g8\4 42448 42654 4% ry 42478 ¢ 42844 42854 | 
é 4287 4316 435174 43184 43194 435498 4 45514 45524 435598 435698 43748 440 4409# | 
4410#@ 44118 44148 44154 44168 441 ret 441 128ce 443/74 44408 6461 4442 444 44454 | 
4446 4447 4448 44508 4451 2e38 5 4454 $4 44784 44818 44820 44868 4485 4486 | 
4487 4488 4490# 4508 45094 45104 | 
MSGNL S 14 3198 | 
MSGNSU # 3194 
MSGNTA 14 3194 4934 5124 19778 199 
22964 23108 234 23444 29148 360 
MSGNTE 14 319% 23428 3784 29484 365 
MSHAPT if 3194 54 
14 3198 3654 404 
MSINCR ‘# 3194 3228 4844 5064 10654 
20474 20554 20644 tA 0794 54 
21544 21654 21708 1924 2114 os 
23248 23424 3434 23454 3784 
24738 8=—2483# = 491TH = 5 4's 74 5144 
26384 26578 2 6754 oon 
28134 2821% 282 28328 8394 ae 
299 2 3 114 ooe 
31008 3108 31134 31198 31264 1324 
32328 32454 32534 3¢2 see58 Scr 
33 33408 33454 33524 35574 
34284 34334 40# 3445 34524 oof 
35264 35344 35398 35454 35504 5574 
3 36474 36564 36694 75a 
37458 37534 37584 37654 37718 864 
38764 39124 9164 
0694 40784 41164 41278 41364 
42448 42568 42848 43168 43498 43594 
MSIOSE 4 3194 
MSLDRO 14 319% 22674 22814 25074 26084 
MSMASK 14 3194 
MSMCHI 14 3194 
MSMCLO id 3194 
MSMSK1 14 3194 
hj 3194 4934 5124 861977# = 81 0154 0544 98 
22534 22968 2310# 232 $444 4 54 
MSPRIN 14 319% 10804 12444 20314 4 1 
14 3194 3224 4844 19728 199 oN 
21544 22684 2262H 23084 23218 23424 234 784 
39514 3952 4437# 44788 
T 14 3194 1080 12444 20314 20638 21378 21598 U9 
MSPUT1 14 3194 1080% 1081 A's # 12444 1245 46 4 
2138 2139 2140 2141 21 $ 1 § 
re ri yl 22208 2221 22864 28 288 2 9604 
MSRAD I oe bd 44408 44458 44508 44848 
14 319% 22674 2269 
MSSETS 4 3194 3224 4844 ree 19954 sole g0gee $0638 
—— bie tt 22624 23084 23218 234 23798 9494 6 en 
MSSVC 3198 10654 10804 1 ord 1638 19984 1999 0134 
20544 2055 20694 2070 350" § ; § 994 $} shite" 1 
2148 2159% 2165 21694 0 1894 192 2044 211 2208 















CZTRAC.Pii 30-DEC-81 11:08 






22864 $32e seae" $73! 
24378 446 455 464 
559 c599# 26084 609 
718 2729 $o22 7624 
29148 2915 956 9644 
30574 3 3072a 0804 
31584 31654 31734 31784 
32934 33044 3114 
33878 33978 34054 104 
34864 934 34984 35054 
3584 35914 35964 36044 
37128 7184 37238 37298 
38494 38564 
012 4024 4038 4049 
4171# 41784 41844 4212 
4418 44218 4422 
MSTLAB 1a 31 10654 10844 
21434 21484 21654 21708 
23954 24 24198 24298 
C5344 8925434 549% = =2559# 
2705# 9 27184 27298 27534 
291 564 29644 
30574 30724 30804 
31584 31654 31734 31784 
32954 33044 33114 
33878 33978 34054 34104 
34864 934 34984 35054 
35844 35918 35 044 
37184 37234 3729% 37344 
98 =638564 764 
4069% 40784 41164 
42448 42564 42844 43168 
MSTSTL 14 319% 10654 0844 
21434 21484 21654 21708 
23954 246008 24198 24298 
25348 254358 549% 25598 
27054 27184 27298 27534 
29154 9564 29644 
30578 30728 30804 
31584 31654 31734 317 
32934 32 33044 33114 
33874 8633978 =3405# 341 
34868 34938 34988 35054 
35844 35918 35968 36 
7238 3 
38494 38564 38764 
4060 40694 40784 41164 
42448 42564 42848 43168 
MSWORD 14 3194 4044 413 
24298 2430 2431 2432 
2467 24738 = 2474 2475 
2502 2503 25144 2515 
2618 2619 2620 26574 
27298 2730 2731 2732 
2877 28894 $539 2891 
3031 5032 2324 = §=63233 





H 11 


CROSS REFERENCE TABLE ~~ MACRO NAMES 


71 311 
47 4 3 
17 § # 
71a 
9744 9794 
0854 309 
1844 1914 
$2 14 ety 
3108 4218 
ae 
ait rae 
38684 387 
4060 40694 
42218 4264 
12484 19998 
21924 22118 
243578 24468 
S99# 26094 
7628 =27718 
9744 9794 
854 30934 
31844 1914 
33218 ratys 
34164 14 
35104 35178 
36094 7a 
374584 37534 
3 9064 
ete 
124 3998 


41274 = 41 
43494 43598 
46 465 
24468 2447 
2476 4834 
2516 517 
2658 59 
2753m 54 
$o3¢ 90 
234 23 


™ 
Ww 
Be 


FVUOUEW— 
2 2 


NOUS MMNMWUINO@SOr © 


MOC NAME WI ODO S Wi 
week LaVeves 


=n Wh 


SAECO 


WsWwn— 
Pueees ruses 
SUeteeesey 


Sees 





Seeelveves 








i 





ssghee 





ae 





HOON & + 


oo 


oh ot a 


9804 


I 11 
CZTRAC.P11 30-DEC-81 11:08 CROSS REFERENCE TABLE ~~ MACRO NAMES 


4013 4014 18)3 40244 4025 $98 ttt 1033" 4 4 4 4041 rg} 4050 4051 405 
40604 4061 4 4 4063 tN 41 4 : 4] 412/# 4 1149 41 rd 4213 4214 
4215 4e449 426 4246 424 42844 428 hae 4287 43164 4317 4318 431 4349# 435 
4351 4352 44084 4409 4410 4411 44408 44458 44508 44818 4482 44844 4509 4510 

MSXFER 1# 3194 

N ‘ft 3194 

POINTE 14 3194 346 

PRINTB a 3194 2030 2042 $336 2158 1% 2203 2219 

PRINTF 4 3198 1079 1243 959 4073 441 

PRINTS ‘a 3194 

PRINTX la 3194 

RE 14 3194 

READEF 14 3194 

RFLAGS ve 3194 

SETPRI 4 319% 2280 2506 2607 2621 

SETVEC 14 319% 2285 

SLASH #4 3194 

STARS A 3194 

SVC md 3174 318 

XFER 3194 

XFERF 14 3194 

XFERT ig 3194 


- ABS. 035402 000 


ERRORS DETECTED: 0 
CZTRAC.BIN/1I,CZTRAC.SEQ/CRF/SOL/NL : TOC=SVC34R.MLB,CZTRAC.P11 
RUN-TIME: 16 21 2 SECONDS 


RUN-TIME RATIO: 64/39=1.6 
CORE USED: 16K (31 PAGES) 


SEQ 138 


